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;