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

韩冰

<>  </P>
1 e! L9 a$ }6 P5 J8 i<>  </P>
<>  </P>
& y+ d3 C: U( }; v6 T; ?! A<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
<> . </P>
% Z6 i7 i" M/ |- z+ Y<>} </P>
% ~" h! D+ y: T% }<>extern TMemoEx memoex; </P>
$ g3 F; r2 D: [<>  </P>
2 j- k1 Y3 V3 i5 W! r<>Class TForm1 : Class TForm </P>
<>{ </P>
- ^7 P6 K' r  E/ c' Z<>public: </P>
<> TMemoEx   *MemoEx; </P>
  s) q4 A: r- R! X0 \$ \<> . </P>
<> . </P>
<>} </P>
6 l* `" f3 R# M) \<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
) m$ _) o0 ~& I8 {<> . </P>
<>} </P>
3 f6 {  [5 D1 A" D: e2 A<>总之，遵循以下步骤即可： </P>
/ u8 @3 q8 @- r- x- N% T<> 类定义; </P>
<> extern TMemoEx memoex; </P>
  A8 I" h5 k* x# A<P> TMemoEx   *MemoEx; </P>
& h" \7 ?" a+ f: ?0 A<P> MemoEx=new TMemoEx(this); </P>
( P( t. \0 l6 ~6 A* I<P> MemoEx-&gt;Parent=this; </P>