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

韩冰

<>  </P>
4 R& u5 L9 A0 J- E3 p<>  </P>
0 r4 q6 m" S, H* y3 N8 ]<>  </P>
" O2 j8 m: m$ I<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
8 p+ B% i# v6 s% s<>Class TMemoEx : public TMemo </P>
<>{ </P>
# U8 {4 N( S2 l% d3 r+ O6 {& A<> . </P>
<> . </P>
<>} </P>
0 t" X! |* X' r0 p% C& _2 O<>extern TMemoEx memoex; </P>
4 ^' e- l2 Z& \; z<>  </P>
; Y' w9 F9 e0 f<>Class TForm1 : Class TForm </P>
8 R! N' S/ r2 P$ s) x<>{ </P>
1 s" [4 d+ K+ i: K6 V, O<>public: </P>
<> TMemoEx   *MemoEx; </P>
! m1 T# ?8 q4 \- m3 |2 O<> . </P>
$ x2 ]: G: L. p<> . </P>
<>} </P>
; ^( @: l( g" H- k0 b% A  @<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
0 x; I* o7 K4 R# `, J; y& {1 G6 }<>{ </P>
+ T) f+ m* q- K$ b& K5 T) i- @<> MemoEx=new TMemoEx(this); </P>
3 D1 g# T+ A  O; D4 g0 T* O' Y<> MemoEx-&gtarent=this; </P>
, G5 I% A9 N: Y7 K% ]  W  z* S<> . </P>
& D# P+ T" N: ~9 y& M5 }<> . </P>
0 k% q  Y" S8 |( C<>} </P>
& S, |) w  s+ n" q) D<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
7 e! w9 |  k3 F. W<> extern TMemoEx memoex; </P>
- g' j4 L! A0 h5 k<P> TMemoEx   *MemoEx; </P>
. V! `# A5 f- U<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>