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

韩冰

<>  </P>
& |* T" E+ l+ s<>  </P>
9 k( R0 X& u0 d9 p+ x<>  </P>
$ @9 ]' [3 P" B<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
1 C! m. y5 }2 m<> . </P>
<>} </P>
1 a8 N2 Z, b, C' W- L' \<>extern TMemoEx memoex; </P>
# D- \! r+ L4 z& ?0 n<>  </P>
9 o+ r9 O# b- G3 r<>Class TForm1 : Class TForm </P>
9 H# q% t+ j  |* o3 s% ]$ @' J<>{ </P>
7 u1 l: F! }+ y  n, E) Q8 D<>public: </P>
<> TMemoEx   *MemoEx; </P>
) T7 c! \( ^' a- A& K<> . </P>
  f! b( Z! U7 A0 [% M<> . </P>
<>} </P>
  w9 d4 F3 G- B3 K; [- E* [/ L9 D) d<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
% f5 U7 m7 Q) P, I<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
5 K' u  n* `# @. q<> . </P>
! A" x" E! K% j; E. s<> . </P>
. s" b' L3 P! n9 a, d6 B. X<>} </P>
2 Q8 x" E% U' Z. }' v<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
2 P5 s3 |% h: t. Y$ X<> extern TMemoEx memoex; </P>
2 F) W, ~0 ]/ P<P> TMemoEx   *MemoEx; </P>
3 `( D* h! p- w<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>