在Delphi中动态创建控件并处理添加事件处理

Question

在动态添加控件的同时，也添加它的单击事件要怎么添加呀，请大虾们指教！

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls;type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    btn:TButton;
    procedure btnClick(Sender:TObject);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnClick(Sender: TObject);
begin
  close;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  btn.Free;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  btn:=TButton.Create(Self);
  btn.Parent:=Self;
  btn.Height:=30;
  btn.Width:=75;
  btn.Visible:=True;
  btn.top:=Self.Top+50;
  btn.Left:=Self.Left+50;
  btn.Caption:='动态控件';
  btn.OnClick:=btnClick
end;end.

Answer 2

其实看一下Form的Text（View as Text）就可以了解控件的时间是如何关联的。