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

韩冰

<>  </P>
<>  </P>
<>  </P>
" n' a5 N5 L% [9 m; M5 w' A<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
<> . </P>
4 |  Z8 u% z( \7 r9 @: d4 q$ R& C<>} </P>
9 S( p$ \- e5 _' c<>extern TMemoEx memoex; </P>
<>  </P>
% \" g( m; h9 D9 ~# @3 X  F, E<>Class TForm1 : Class TForm </P>
9 Q' M0 G% {$ S. v<>{ </P>
<>public: </P>
: U$ D/ f, j( `<> TMemoEx   *MemoEx; </P>
<> . </P>
+ m3 T' f$ z6 P3 J5 p<> . </P>
  _  o9 S- T0 M/ `( @; l<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
/ a$ H) J- X" p9 V<>{ </P>
2 S' n4 B% ~( A3 O<> MemoEx=new TMemoEx(this); </P>
& N; g+ S0 G) j1 W<> MemoEx-&gtarent=this; </P>
. U5 y4 W2 _/ ]" `" Q# S9 G<> . </P>
$ _9 v2 R& ?) H5 l) C" i<> . </P>
1 M2 `' U4 X' d7 T# w<>} </P>
5 X: r/ p% j4 ^  g: V  p' c; f5 T1 C<>总之，遵循以下步骤即可： </P>
* Z, J7 \1 z5 h4 o: ]4 p: n0 ~+ I( e<> 类定义; </P>
<> extern TMemoEx memoex; </P>
: [9 v- @$ A8 D, y6 s+ y1 J6 a1 P<P> TMemoEx   *MemoEx; </P>
% h: I2 Z. d0 V$ ]" S" D6 Z0 N<P> MemoEx=new TMemoEx(this); </P>
0 t8 G- `- J1 u% B<P> MemoEx-&gt;Parent=this; </P>