BCB中派生VCL类及动态地创建控件

文章作者 100test 发表时间 2008:03:29 14:21:02
来源 100Test.Com百考试题网

以下不完整例子为生成一个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.