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

韩冰

<>  </P>
4 p$ F$ i2 |3 k) o6 r<>  </P>
. L$ ~- P0 l) R2 {8 y3 c: @<>  </P>
1 n! |. q. K. u/ @8 `# G6 ]! A3 B<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
0 a* ]: O4 z' m! ~# }; h3 f<> . </P>
7 K) @. z6 X& J" ~! M1 g<>} </P>
<>extern TMemoEx memoex; </P>
5 @4 l3 z. g/ f* I4 M5 {<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
' r. F" u+ Z3 _2 z<>public: </P>
) B( n. R) V' L" w: \<> TMemoEx   *MemoEx; </P>
<> . </P>
<> . </P>
<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
3 g, }# f0 {9 t<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
, w/ s% T$ ?; p# |$ H* g% g5 f0 `4 c<> . </P>
<> . </P>
<>} </P>
8 D' H6 s9 @( v* s4 C  Y<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
; h0 e6 d' y" c: @2 f* P% L<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
- i5 W$ [; j( d; Z<P> MemoEx=new TMemoEx(this); </P>
. @6 T* H, @" g; N  Y. q; H& |: q<P> MemoEx-&gt;Parent=this; </P>