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

韩冰

<>  </P>
<>  </P>
5 O# n8 ?+ @# q& e! B7 K5 r<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
' s1 p% M( ^; g+ H/ {0 N<>{ </P>
2 Y/ H4 }* m# l0 b7 Q! z5 K<> . </P>
<> . </P>
* G$ |- g: N' M8 Z<>} </P>
- g) Z$ n1 R% N1 w9 B<>extern TMemoEx memoex; </P>
, f! Z0 K1 F0 p! g<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
<>public: </P>
; g: j" D+ D7 i0 z<> TMemoEx   *MemoEx; </P>
0 U/ Z- \2 v  u) x5 l9 O<> . </P>
<> . </P>
<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
/ Y# Q# r# j7 g5 p7 d$ S  H4 [<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
<> . </P>
8 o. T, q1 t+ r<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
. B( {  L6 Q$ {<> extern TMemoEx memoex; </P>
  G0 R) b0 z0 {1 W1 T<P> TMemoEx   *MemoEx; </P>
3 R' Z% g( a. _: v* P2 {<P> MemoEx=new TMemoEx(this); </P>
  a7 [$ k# n( c$ O<P> MemoEx-&gt;Parent=this; </P>