动态调用组件的问题

Question

我想写一下动态调用组件的问题:
请看下面的例子
Var
   Btn : Tbutton;
   tm  : TTimer;
Begin
   btn := Tbutton.Create(Nil);
   Btn.top := 5;
   Btn.left:= 10;
   Btn.Height := 23;
   Btn.Width  := 80;
   Btn.Parent :=  Panel1;
end;这样在界面上能显示出来一个button.但是却没有产生事件,我的意思是说单击这个动态产生的button.再想创建一个form出来.请问我应当怎么做?是不是应当写一个TNotifyEvent事件?还是别的?

Answer 1

写个过程事件符给按钮（button）........

Answer 2

procedure click(sender:tobject);...procedure TForm1.click(sender:tobject);
begin
 showmessage('test');
end;
var btn:TButton;
begin
Btn:=TButton.Create(self);
btn.parent:=self;
btn.OnClick:=click;//符值

Answer 3

要先手工写出一个过程来，再把这个过程名赋给BTN.Onclick即可