C++ Builder 實現動態產生視窗、控制項，以及處理控制項事件

以下代碼出自http://blog.csdn.net/hellogv/,引用請註明出處！ 

 廢話就不多說，直接開始本文的重點 

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//----------首先是動態建立視窗
  TForm *NewForm = new TForm(Application);//這裡用TForm是為了建立空白視窗
//----------其次是動態建立控制項
  TButton *btn = new TButton(NewForm);//這裡動態建立一個Button控制項
  btn->Caption = "MyButton"; //名稱為"MyButton"
  btn->Parent = NewForm;//規定了在動態建立的視窗顯示
  btn->OnClick=MyEvent;//OnClick事件是映射MyEvent，註：OnClick與MyEvent必須參數相同
  btn->Show();
  NewForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyEvent(TObject *Sender)
{
  ShowMessage("已經調用我的事件了");
}