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

韩冰

<>  </P>
<>  </P>
; d! Q& M2 c' A" ~% X" [<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
5 E# T, L: ~" I<>{ </P>
/ }* S/ _: t- J" _$ L8 U# J0 J<> . </P>
<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
1 o" ?9 z4 F  v. p* e; E<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
<>public: </P>
0 r- @; B+ A0 p: d  l/ B; s: [7 a<> TMemoEx   *MemoEx; </P>
<> . </P>
7 b/ e9 a9 @9 O, B" \6 _<> . </P>
) z  M: I8 N4 Y' g<>} </P>
4 O3 z( {% B; o; F. c<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
) E6 _2 D/ R; u/ P( m0 [<> MemoEx-&gtarent=this; </P>
9 M0 F% }9 r4 Z& ]+ M<> . </P>
! }0 ~4 N( j3 M) j8 l/ H<> . </P>
1 N: L* h! m9 d5 w6 ^<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
& m7 [  {# _  ~<> extern TMemoEx memoex; </P>
; k7 H- @' Z  a<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>