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

韩冰

<>  </P>
<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
<> . </P>
<> . </P>
5 y7 ^  t. `) O, T3 M0 T<>} </P>
4 s) |3 ?. ~' Z  E( M<>extern TMemoEx memoex; </P>
<>  </P>
: L. w* E5 [! S1 L" @$ j<>Class TForm1 : Class TForm </P>
<>{ </P>
<>public: </P>
<> TMemoEx   *MemoEx; </P>
<> . </P>
$ |9 ^# G) g+ M- I<> . </P>
<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
- }" k8 K  v# ?. u% E<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
, j* t9 N4 b( ^<> . </P>
<> . </P>
<>} </P>
<>总之，遵循以下步骤即可： </P>
  @* T. w- U/ f<> 类定义; </P>
; o) [( W- D, f' a( V! t<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>