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

韩冰

<>  </P>
<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
: U# W1 \3 U+ p& w- N<>Class TMemoEx : public TMemo </P>
<>{ </P>
: V- z/ c0 k- z7 x/ g4 R<> . </P>
" k; W7 H; I+ o+ @<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
<>  </P>
, I* D5 A. X/ N( E9 h0 }<>Class TForm1 : Class TForm </P>
9 ]9 t% P. y& X<>{ </P>
8 _# J4 y3 h9 x<>public: </P>
* z0 ^( W& R/ `* ?4 ]<> TMemoEx   *MemoEx; </P>
: x8 Y3 R  Q( @2 A1 w5 [+ y<> . </P>
6 \# ?& p1 c. A+ R3 O. p$ `<> . </P>
7 h( c1 T* t+ R<>} </P>
<>  </P>
3 t# K$ }# g/ U! _) y<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
3 {$ m' T$ m* V<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
. @; F  d: v& I2 _<> . </P>
  }& W: {+ W: ?2 K! ^<> . </P>
7 M" d. `$ m( D<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
5 L+ C( R4 U3 j$ `" J<> extern TMemoEx memoex; </P>
: s/ b! `1 h! ]. o: b, i( \<P> TMemoEx   *MemoEx; </P>
2 a5 T/ D) m2 y! j* y  s<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>