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

韩冰

<>  </P>
1 g. K. j8 _; N, v* Q) @* E  C! p# N, m<>  </P>
<>  </P>
5 S# w8 \, s$ n& d) f2 o9 w<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
+ {$ ^5 M* T# c  y0 H<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
& D$ ^  g$ C, ~. r, S<> . </P>
<>} </P>
2 {5 p% c  B- V7 a, m! ?: ?3 D- J<>extern TMemoEx memoex; </P>
1 D8 F, P% J- p$ _1 Z1 i" U- x9 F  y<>  </P>
, ~, W# F& o! @( Q3 K' S" F<>Class TForm1 : Class TForm </P>
; Z& y+ Y. @8 c7 I5 {<>{ </P>
! A/ g; Z' }% {- c0 ?<>public: </P>
5 J' N2 N$ C6 e2 f0 j# v7 D<> TMemoEx   *MemoEx; </P>
<> . </P>
3 S; }- |( V/ [( k) |" a6 `: U- ~<> . </P>
) I) G) D4 k) E+ f( `% Y8 z<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
- M. ~( U5 f1 u$ }/ h% c, y, I<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
( i1 x5 p+ }/ R' `# Q' U$ [<> . </P>
<> . </P>
/ l: d; ?! \8 D8 j" a9 e<>} </P>
" q4 Z3 m  `5 N  ^<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
# A$ D! j3 _1 y9 l  V: `* k<P> MemoEx-&gt;Parent=this; </P>