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

韩冰

<>  </P>
<>  </P>
<>  </P>
' [$ P4 H4 [. a1 o; Q5 L<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
" y9 V5 }" W8 `8 c* z<> . </P>
<> . </P>
  f! o! T$ h# h<>} </P>
! a! {% I! A- X" f/ g6 g+ G6 Y, R<>extern TMemoEx memoex; </P>
<>  </P>
( _) u; R, u2 x0 `/ j  A<>Class TForm1 : Class TForm </P>
<>{ </P>
5 q* m$ N5 x" R" u' k<>public: </P>
* j# i# M! U" s+ @<> TMemoEx   *MemoEx; </P>
! e2 j9 N& ]  y+ P+ ]<> . </P>
<> . </P>
<>} </P>
. z. K2 l* g5 I! a9 L<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
2 K5 I9 I5 t/ w- B<>{ </P>
9 @! t( H; ]3 X4 s<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
<> . </P>
<>} </P>
<>总之，遵循以下步骤即可： </P>
, l- F8 `0 O% p5 u<> 类定义; </P>
<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
, Z4 S) f/ h+ b) K# V& s<P> MemoEx-&gt;Parent=this; </P>