delphi窗体控件的自动加入

Question

在创建控件时加上：
  你添加的控件.事件  := 一个事先也定义的函数

Answer 1

  private
        procedure MyClick(Sender: TObject);
.
.
.
.
.
.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
      Mybutton:Tbutton;
begin
    Mybutton:=Tbutton.Create(self);
    Mybutton.parent:=self;
    Mybutton.Top :=y;
    Mybutton.Left :=x;
    MyButton.Caption:=TimeToStr(now);
    MyButton.OnClick :=MyClick;
    Mybutton.Visible :=true;
end;
procedure TForm1.MyClick(Sender: TObject);
begin
    Showmessage('ok')
end;