采用动态创建的组件怎么调用他的onclick等事件

Question

采用动态创建
procedure TMainForm.Button1Click(Sender: TObject);
var
  t: TTabSheet;
  w: TWebBrowser;
begin
  t := TTabSheet.Create(PageControl1);
  t.PageControl := PageControl1;
  t.Caption := 'TabSheet' + IntToStr(PageControl1.PageCount);
  PageControl1.ActivePageIndex := t.PageIndex; 
  w := TWebBrowser.Create(t);
  TWinControl(w).Parent := t;
  w.Align := alClient;
end;怎么调用他的onclick、onmousedown等事件？？？？

Answer 1

procedure TForm1.MyClick(Sender:TObject);
  begin
     (Sender as TButton).Caption:='MyButton';
     ……
  end;MyButton.OnClick:=Myclick;

Answer 2

同意上面的说法。就是在建立后把它定义好的过程赋给这个控件的onclick就可以了。

Answer 3

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure buttonClickEvent(sender:TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.buttonClickEvent(sender:TObject);
begin
  showMessage('asdlfj;lasdkfj;asdlfjasl');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  button:TButton;
begin
  button:=TButton.Create(form1);
  button.Caption:='http://www.goomoo.net';
  button.Left:=20;
  button.Width:=300;
  button.Top:=20;
  button.OnClick:=buttonClickEvent;
  button.Parent:=form1;
end;