动态创建的控件，怎样声明它的事件！！！！小乐向高手求救！！！

Question

我动态创建了一个控件，若为按钮N1;
我怎样响应它的Onclick事件////

Answer 1

学习delphi不到一个月
还有哪位高手用它做过甘特图呀！

Answer 2

procedure TForm1.Function1Click(Sender: TObject);
begin
...
end;..
N1.OnClick:=Function1Click;
..

Answer 3

procedure N1Click(Sender : TObject);
....N1.OnClick:=N1Click;
...procedure TForm1.N1Click(Sender : TObject);
begin
  showmessage('响应N1事件');
end;

Answer 4

Procedure BtnTestClick(Sender: TObject);procedure TForm1.BtnTestClick(Sender: TObject);
begin
   showmessage('Test');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  BtnTest:= TButton.Create(nil);
  BtnTest.Parent := Form1;        //这句重要！！
  BtnTest.Caption :='test';
  BtnTest.OnClick := BtnTestClick; //给事件赋值
end;

Answer 5

下面是我一个创建按钮的公共函数：procedure SerialOnClick;
begin
  showmessage('OnClick');
end;
procedure DynCrtBtn(edtObj: TButton);
begin
    edtObj := TButton.Create(self);
    edtObj.OnClick := SerialOnClick;
end;