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;