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

韩冰

<>  </P>
$ @* v  h0 W. a, \<>  </P>
<>  </P>
  u% E" p+ m" H! K! g* H<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
6 a6 B) O. T, s1 N2 h3 ?<>{ </P>
* o8 b! z1 o0 L. I1 Q0 r<> . </P>
0 f. u' E: \' W<> . </P>
% h7 [4 U; Y6 q2 z4 _5 T" u+ q<>} </P>
  p% J4 r7 k+ s<>extern TMemoEx memoex; </P>
6 i% R- n9 D' L' j3 U7 G<>  </P>
<>Class TForm1 : Class TForm </P>
  ~# \( ?' V+ K' [  |<>{ </P>
<>public: </P>
<> TMemoEx   *MemoEx; </P>
<> . </P>
3 b: k( D4 Q9 w( C<> . </P>
7 ^' N1 I9 K, u2 z! B<>} </P>
! v/ @, b# T' i0 m<>  </P>
$ y* n& t, x9 I# y. T6 l, C<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
5 P! K$ q) {% C2 n  c5 @<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
3 b% j- w/ ?( c" |+ _# [% ~<> . </P>
. T: s+ J* G) D4 S% j<> . </P>
<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
( c/ |! N- b& V( P<> extern TMemoEx memoex; </P>
( w# ~/ f* |: B: h' j$ {<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
- G( o/ g" _2 i/ _<P> MemoEx-&gt;Parent=this; </P>