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

韩冰

<>  </P>
<>  </P>
7 r+ [7 x& W4 o& m" l) i0 K0 O- i<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
# v7 J' L1 x2 e<> . </P>
! W% o* \. L# u& `0 i+ S0 m9 T0 r<>} </P>
0 ~! F7 ]* H% r" ]; O- J<>extern TMemoEx memoex; </P>
/ l1 m- {5 O2 d2 |2 `, F9 H<>  </P>
* Z, Z  G! B+ C7 E<>Class TForm1 : Class TForm </P>
<>{ </P>
2 }: r  f% ]6 h, ?$ j<>public: </P>
& ]& N( t) s7 g' w* n, b$ F<> TMemoEx   *MemoEx; </P>
3 S3 g: B* F' m) N6 D3 _<> . </P>
<> . </P>
: y! U% k1 _7 T8 W& U<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
4 o! G, y  K5 ~<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
<> . </P>
<>} </P>
3 K5 \/ F+ r: F6 s. u' }<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
$ p8 T  {  g$ n) d+ r& B" x: L% C8 I<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
* }7 T+ @4 ]( t0 C  [+ [<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>