delphi 如何在别的窗体创建edit 添加事件?

Question

delphi 如何在别的窗体创建edit 添加事件?

Answer 1

procedure TForm1.MyClick(Sender: TObject);
begin
  ShowMessage('ok');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Button1.OnClick := Self.MyClick;
  Form2.Show;
end;

Answer 2

同一个Application应该很简单吧，不同的Application得用FindWindow找到句柄然后处理吧

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure EditChange(Sender :TObject) ; //在TForm1下面增加一个 TNotifyEvent
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
  Edt :TEdit ;
begin  Edt := TEdit.Create(self);   //动态创建TEdit
  Edt.Parent := self ;
  Edt.Top := 20 ;
  Edt.Left := 100 ;
  Edt.Width := 200 ;  Edt.OnChange := EditChange ; //绑定Edt的OnChange事件end;procedure TForm1.EditChange(Sender: TObject);   //编辑逻辑
begin
  ShowMessage(TEdit(Sender).Text) ;
end;end.