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

韩冰

<>  </P>
<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
& G( f$ ~0 W+ X5 m) S2 d<>{ </P>
9 J, I  y9 ?& x0 Y<> . </P>
3 }: r3 `! Q# L0 p: y0 |<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
<>  </P>
4 n, o$ V7 C: y; Z; L5 {! d4 b: P<>Class TForm1 : Class TForm </P>
<>{ </P>
; L% |+ D: R$ s' v( y<>public: </P>
<> TMemoEx   *MemoEx; </P>
, x5 b, b" K5 k6 Q<> . </P>
% P3 p5 {( b* b6 r6 z<> . </P>
2 p: @; [; ]! f3 L; R<>} </P>
<>  </P>
$ W+ w1 U  r: Z9 b<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
' M# J8 E* R0 o' e; M<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
4 V* h! N8 h( u2 e" N8 ?<> . </P>
<>} </P>
<>总之，遵循以下步骤即可： </P>
- t: W) j6 T- r8 Z( ~<> 类定义; </P>
<> extern TMemoEx memoex; </P>
7 z8 U# S$ W4 A3 n<P> TMemoEx   *MemoEx; </P>
  h  q$ \5 F! `9 I. }- K2 ]* q0 k$ P5 W<P> MemoEx=new TMemoEx(this); </P>
; R- \0 ~7 B0 F/ R# ?<P> MemoEx-&gt;Parent=this; </P>