以下代码出自http://blog.youkuaiyun.com/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("已经调用我的事件了");
}