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

韩冰

<>  </P>
0 Z3 C; O6 B. g3 Q+ w2 I& `; ?<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
! H: `( K: W2 u/ Q1 e" l<>{ </P>
5 |( w6 u% R# i( o1 B<> . </P>
& E- C) Z9 K8 C$ H<> . </P>
<>} </P>
4 W& `' H3 ], ^. K& j<>extern TMemoEx memoex; </P>
. ~6 B" a4 Y: c5 y9 d& N2 {<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
, M" O  K7 J6 r<>public: </P>
* ^. D0 I; P( W, [5 v( J<> TMemoEx   *MemoEx; </P>
<> . </P>
: j: C/ O0 [9 z' g5 z) g4 k<> . </P>
0 z) B7 _7 {! r8 k4 x<>} </P>
* W5 `) c% J2 q<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
* i3 O6 L2 @$ ^; t& f7 a<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
2 _+ o! c% k: D: E( d+ T<> . </P>
<> . </P>
' ~- ^, `3 p( X! y. V<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
( V* n1 V4 J! ^: t" @8 A<P> MemoEx-&gt;Parent=this; </P>