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

韩冰

<>  </P>
# V9 x; m1 Q. t' B1 \<>  </P>
0 t- @( D$ s, S9 Y# s8 ^+ K<>  </P>
  C0 ~4 x$ g- }8 O+ i# r<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
! A+ n+ B6 k1 ]: y% s9 a<>Class TMemoEx : public TMemo </P>
<>{ </P>
- O2 H' N$ I7 V* P5 |+ _) O<> . </P>
8 X1 N4 [" C" |% N' j0 h<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
1 T( Q- P9 g; _$ }; M2 u: x/ |( w<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
<>public: </P>
<> TMemoEx   *MemoEx; </P>
$ q# n9 e" H7 L& Q' h2 K<> . </P>
<> . </P>
, }: x4 u3 c, z<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
# h6 Y& q: T9 E) M0 ?" s<>{ </P>
. u. z% S# H* H' G! [" K8 L<> MemoEx=new TMemoEx(this); </P>
9 u1 j" f& O; q! X<> MemoEx-&gtarent=this; </P>
: T2 f+ R2 H5 _1 x<> . </P>
  ^0 M, a1 F& }$ ^<> . </P>
: [! z! Q- p. q) g: k& L# S) x6 {<>} </P>
<>总之，遵循以下步骤即可： </P>
* ^1 B) @; m/ u; r7 r' B" F1 w<> 类定义; </P>
4 [' i: m% V% @3 B<> extern TMemoEx memoex; </P>
" O/ `" R# n# o/ m9 `. |1 w<P> TMemoEx   *MemoEx; </P>
- e8 D8 ~* Q) h" B# M/ _# h# G<P> MemoEx=new TMemoEx(this); </P>
+ s# m  e6 O  I. R# i: N<P> MemoEx-&gt;Parent=this; </P>