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

韩冰

<>  </P>
- D0 N/ o; l$ c' s  L: E& F) o<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
: f, [6 x4 N) e) \( Y- I2 }! N<>{ </P>
<> . </P>
" P+ \9 \; s9 Q8 g<> . </P>
<>} </P>
) i" j8 t" m1 g) l% ]<>extern TMemoEx memoex; </P>
1 M; \& a* s5 w) p2 p8 L% L( g<>  </P>
<>Class TForm1 : Class TForm </P>
6 Q0 r+ K2 r! O/ @% e0 L<>{ </P>
<>public: </P>
<> TMemoEx   *MemoEx; </P>
<> . </P>
. U8 w* B8 J4 _( }  ?9 E" M<> . </P>
2 h- D+ e$ p* J8 u8 ]- m<>} </P>
  S0 X: W# Z# F<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
1 ]4 C3 M7 \$ {+ p<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
, J/ X$ i+ G9 K<> MemoEx-&gtarent=this; </P>
<> . </P>
<> . </P>
<>} </P>
( S5 ~" r. |! g5 k/ n<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
) ~* x8 K( l7 l  {7 n& p/ W/ \<> extern TMemoEx memoex; </P>
( g/ q3 H  A1 W  S' T  e) U<P> TMemoEx   *MemoEx; </P>
' X& o  N& e! J8 {+ q" B% Q<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>