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

韩冰

<>  </P>
- s" f3 v3 w& G& @2 [0 z7 C" |& A<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
, Q' h4 m- P! K7 B2 X<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
; F4 v- a+ \& i8 l9 R# z: U' _7 d<> . </P>
<>} </P>
' G* ~0 A3 N7 G& c7 ~<>extern TMemoEx memoex; </P>
<>  </P>
. A5 R3 B) n, S, }0 Y6 Q0 N<>Class TForm1 : Class TForm </P>
<>{ </P>
<>public: </P>
) _2 m4 H$ _+ n<> TMemoEx   *MemoEx; </P>
1 p& {: L/ z* w( b8 Q; G  V0 b<> . </P>
% C/ G6 R$ I4 L+ D9 [) L" r<> . </P>
<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
<> . </P>
<>} </P>
<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
<> extern TMemoEx memoex; </P>
" p# c7 Z7 D& b. k: G4 |+ W% x/ I<P> TMemoEx   *MemoEx; </P>
4 A; |( I2 \9 e2 G5 w<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>