実行中に生成されたコンポーネントのイベント処理について

解決

みみ 2005-04-09 01:02:34 No: 14167

Windows XPでDelphi7を使っています。

myTextEdit := TEdit.Create(Form1);
myTextEdit.Parent := Form1;

上記のようにプログラム中に記述し、実行中にテキストエディタを
生成するようにしました。

しかし、実行中に生成されたコンポーネントのイベントはどのよう
にセットしたらよいのでしょうか？？

ご回答できる方がいましたら、どうぞ宜しくお願いします。

りおりお 2005-04-09 01:20:53 No: 14168

イベントはメソッドを代入できるプロパティーです。

  public
    MyEdit:TEdit;
    procedure MyEditClick(Sender:TObject);
  end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyEdit := TEdit.Create(self);
  MyEdit.Parent := self;
  MyEdit.Left := 10;
  MyEdit.Top := 10;
  MyEdit.OnClick := MyEditClick;
end;

procedure TForm1.MyEditClick(Sender:TObject);
begin
MyEdit.Text := 'Clicked!';
end;

みみ 2005-04-09 03:29:29 No: 14169

りおりお様ありがとうございました！
無事、解決することができました！