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

韩冰

<>  </P>
<>  </P>
+ r9 |/ D: ]+ B. V1 g" h' Z) B- k% U<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
, Z( ]. [3 R" S- ^0 O' b: @9 \% ]<> . </P>
" b: i* s2 m# r<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
( ?7 Q: T- }0 k9 g/ k9 q<>  </P>
<>Class TForm1 : Class TForm </P>
0 f1 c; t0 c+ G3 E, \<>{ </P>
<>public: </P>
, r. Y5 Y( K) e9 V) Z% m<> TMemoEx   *MemoEx; </P>
/ j1 a7 }4 Q% o9 K3 n% Y5 `& S<> . </P>
<> . </P>
* O4 H( Q7 [- }/ G# ~4 e+ j; Q4 C6 I<>} </P>
<>  </P>
+ z0 R9 ?/ Y: n$ o8 [+ ]4 N, ]<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
5 y0 ?7 g  P9 D) j6 r) t4 e<>{ </P>
8 F, T2 z3 s& l' N" ]& T<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
4 l9 [; \3 W! z" U7 X3 c% _* c<> . </P>
<> . </P>
+ k8 z; E" v7 ?6 Y; C0 r<>} </P>
4 @1 @5 j' v5 K; t5 i<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
* R- S9 k, a) `<> extern TMemoEx memoex; </P>
, ~  Y- f$ p4 x3 s- T6 s<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>