Tframeの値の引き渡しについて (ID:150397)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

基本
＊＊＊＊ FORM ＊＊＊＊

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Frame21: TFrame2;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    Frame21.Edit1 := Edit1;
end;

end.

＊＊＊＊ FRAME ＊＊＊＊

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFrame2 = class(TFrame)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    FEdit: TEdit;
  public
    //Edit: TEdit; (※) property でなくこちらでもOK
  published
    property Edit: TEdit read FEdit write FEdit;
  end;

implementation

{$R *.dfm}

procedure TFrame2.Button1Click(Sender: TObject);
begin
    if Assigned(Edit) = True then
    begin
      showmessage(Edit.Text);
    end;

end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る