如何触发动态生成的控件的触发事件？

Question

为OnClick等属性赋值即可。如：ee:TClientSocket;ee:=TClientSocket.create(self);ee.host:='127.0.0.1';
ee.active:=true;
ee.OnConnect:=eeConnect;  //定义触发事件
ee.OnDisConnect:=...procedure eeConnect(sender:TObject;socket:TCustomWinSocket);  //参数应该与实际事件的参数一致。
begin
...
end;

Answer 1

对不起！
nhgw，可能您误会了。
我提问时用的语法错了，应该是：var hh:Tedit;
hh.Creat(self);我问的是在普通的Form上，用代码生成的控件如何定义其触发事件？

Answer 2

你用的这个语法我也很少见;
TComponent的Create方法的参数是它的保管者.

Answer 3

通常都是这样写：
  TForm1=class(TForm)
   ...
  private
    procedure MyOnChange(Sender:TObject);
  ...var hh:TEdit;
  hh:=TEdit.Create(Sefl);
  hh.OnChange:=MyOnChange;
  ...procedure TForm1.MyOnChange(Sender:TObject);
begin
  //你的代码
end;