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

韩冰

<>  </P>
<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
4 g' s+ \3 I3 T4 d. u<>Class TMemoEx : public TMemo </P>
3 l+ H" u" w4 _<>{ </P>
<> . </P>
<> . </P>
0 B$ d1 a, m! y& U% d. X* i% r4 ^( w1 W<>} </P>
* |. a, B' B2 m<>extern TMemoEx memoex; </P>
<>  </P>
<>Class TForm1 : Class TForm </P>
2 z0 G, m6 }+ H/ B3 T+ w<>{ </P>
% H$ g7 h9 E4 s6 l& V3 [<>public: </P>
$ z: ?' j! ?, Z9 _, C<> TMemoEx   *MemoEx; </P>
<> . </P>
<> . </P>
$ c$ |; a3 t/ d! `9 u2 ]" _<>} </P>
9 G: S5 W4 K1 e8 }3 P5 i/ z<>  </P>
" b2 r" `8 I. R1 B0 e: q" g8 G& y<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
; W2 I; k$ ^) C. u0 K<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
. N& L  C2 c( Y4 Y  D: H& q<> . </P>
' J  x  s+ ?! i7 t3 `& B' M<> . </P>
<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
5 F0 y  a) `% }! \<P> MemoEx-&gt;Parent=this; </P>