BCB中派生VCL类及动态地创建控件
2008-03-08 21:53:29 来源:WEB开发网核心提示:以下不完整例子为生成一个TMemo的派生类及动态地创建该VCL控件, Class TMemoEx : public TMemo { . . } extern TMemoEx memoex; Class TForm1 : Class TForm { public: TMemoEx *MemoEx; . . } void
以下不完整例子为生成一个TMemo的派生类及动态地创建该VCL控件。
Class TMemoEx : public TMemo
{
.
.
}
extern TMemoEx memoex;
Class TForm1 : Class TForm
{
public:
TMemoEx *MemoEx;
.
.
}
void _fastcall TForm1::FormShow(TObject *Sender)
{
MemoEx=new TMemoEx(this);
MemoEx->Parent=this;
.
.
}
总之,遵循以下步骤即可:
类定义;
extern TMemoEx memoex;
TMemoEx *MemoEx;
MemoEx=new TMemoEx(this);
MemoEx->Parent=this;
[]
赞助商链接