怎样在生成的控件后面加入代码？

Question

程序运行时生成一个button
怎样增加onclick事件/

Answer 1

button := TButton.Create(Self);
...
button.OnClick := Self.ButtonClick;
...TForm1.OnClick(Sender: TObject);
begin
  ShowMessage('你按下了按钮1。');
end;

Answer 2

procedure click(Sender:TObject);
begin
 showmessage('a');
end;button := TButton.Create(Self);
...
button.OnClick := Click;
...

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure editchange(Sender: TObject);
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  ed : Tbutton;
begin
  ed := Tbutton.Create(self);
  ed.Parent := Form1;
  ed.caption := 'sdfsdfd';
  ed.Left := 12;
  ed.Top := 12;
  ed.Onclick := editchange;
end;procedure TForm1.editchange(Sender: TObject);
begin
   showmessage('');
end;end.