运行时生成的组件如何调用？

Question

我如果另写一个过程：procedure tform1.btonclick(sender:integer);
begin
  showmessage('bt clicked!' );
  close;
end;虽然编译能通过，但不起作用的。

Answer 1

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  bt:=tbutton.create(self);
  bt.parent:=self;
  bt.Name:='btnm';
  bt.left:=20;
  bt.top:=20;
  bt.width:=40;
  bt.height:=25;
  bt.caption:='exit';
  bt.visible:=true;
  bt.visible:=true;
  bt.OnClick :=btonclick;  // OnClick事件
End;

Answer 2

procedure tform1.btonclick(sender:integer);
begin
  showmessage('bt clicked!' );
  close;
end;要改成procedure tform1.btonclick(Sender:TObject);
begin
  showmessage('bt clicked!' );
  close;
end;