请教高手，如何给动态创建的组建添加过程？

Question

动态创建一个按钮，怎么给他添加一个事件过程？
谢谢！！

Answer 1

begin
  B1 := TButton.Create(nil);
  B1.Parent := self;
  B1.OnClick := ClickMe;  //你自己编的过程.
   ...
  B1.Free
end;

Answer 2

首先声明：
  btn:Tbutton;
然后使用：
  btn:=Tbutton.create(self);
  btn.caption:='我是动态生成的';

Answer 3

procedure TFra_CaseShow.TCtrlClick(Sender:Tobject);
var i,j:integer;
begin
    if Sender.ClassName='TEdit' then
      i:=TEdit(Sender).tag
    else if Sender.ClassName='TBitBtn' then
      i:=TBitBtn(Sender).Tag
    else
      i:=0;
end;begin
  B1 := TButton.Create(nil);
  B1.Parent := self;
  B1.OnClick := TCtrlClick;  //你自己编的过程.
   ...
  B1.Free
end;