以下代码出自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("已经调用我的事件了");
}
本文介绍了一种使用Delphi在运行时动态创建窗体和控件的方法,并通过示例代码展示了如何设置控件属性及事件处理过程。
1万+

被折叠的 条评论
为什么被折叠?



