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

韩冰

<>  </P>
% i( m: }8 k7 k. G1 P& a( [<>  </P>
7 W. o) \; E$ t) [8 n% W<>  </P>
. e( z  r( B# l<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
- k: S7 y. _6 Z+ q( d5 a5 b7 Q# ~* x<>Class TMemoEx : public TMemo </P>
5 w7 i& v( O+ [4 G0 r- t5 V<>{ </P>
. x$ ~. O' ^6 N( I) e) r$ H& F<> . </P>
<> . </P>
% H1 ^7 q& U2 l  A( P5 R& i4 z<>} </P>
+ N9 j! d/ l5 E) C; S! E  e' D) o<>extern TMemoEx memoex; </P>
<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
<>public: </P>
. }' Y, ~6 _. W* |# C<> TMemoEx   *MemoEx; </P>
1 V5 E6 P! f) d8 W- {<> . </P>
! K: y+ {5 M% z$ l# M2 j<> . </P>
<>} </P>
6 _5 Z" z9 j( J7 V; m7 Z0 g<>  </P>
/ Z/ Y. N; _- u<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
) W, H& f6 B. [. i3 o3 U, K<> . </P>
$ U! d1 ]/ }3 v. g% B; I  N# d<> . </P>
. @0 r% E3 q9 Q* A, |! p! T<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
% o& ?! O- z3 |9 S' Z<P> MemoEx=new TMemoEx(this); </P>
" V3 L  Z4 p$ c<P> MemoEx-&gt;Parent=this; </P>