[轉載]BCB中派生VCL類及動态地建立控件

以生成一個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;