动态创建控件小问题！！在线急等之，高手请进……

Question

我在动态创建的窗体form1上动态创建了bitbtn1控件，可怎样写bitbtn1的onclick事件呢？
比如，我想通过单击bitbtn1按钮控件来关闭动态创建的form1，怎样写代码呢？？我是新手，请高手大侠们指教……  

Answer 1

private
   procedure BitBtn1Click(Sender: TObject);procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form1.Close;
end;procedure TForm1.FormCreate(Sender: TObject);
var BitBtn1:TBitBtn;
begin
  BitBtn1:=TBitBtn.Create(self);
  BitBtn1.Parent:=Form1;
  BitBtn1.OnClick:=BitBtn1Click; //指定OnClick事件
end;

Answer 2

http://blog.csdn.net/wudi_1982/archive/2006/05/31/766628.aspx
我就不转贴了。。