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

韩冰

<>  </P>
0 S+ g$ @/ N! R% P% p+ x8 ?<>  </P>
<>  </P>
3 c$ w, k' _  _; f9 ^# j' }<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
4 \4 K' L# a; J1 X0 L( \' ^2 i5 ^. I<>{ </P>
<> . </P>
% Y5 v4 P! ?$ A) x5 x$ N<> . </P>
<>} </P>
: H/ x3 [6 \3 @5 g<>extern TMemoEx memoex; </P>
. y! ?: _! g0 }6 _: W$ F& v<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
<>public: </P>
<> TMemoEx   *MemoEx; </P>
<> . </P>
0 p1 s3 Q5 M2 k) u% H<> . </P>
# I2 ]7 R- X8 P" B6 c9 u<>} </P>
: n2 [1 J9 H) J3 k2 ]<>  </P>
7 z. f1 S/ U/ @& e) ]% X<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
<> . </P>
<>} </P>
<>总之，遵循以下步骤即可： </P>
) K8 T6 Q: J" R- q( B<> 类定义; </P>
2 V2 h1 I6 r2 M$ G<> extern TMemoEx memoex; </P>
, |/ s* R1 N- [; F% P<P> TMemoEx   *MemoEx; </P>
4 Y$ z% B9 v: w6 m2 ]; ~<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>