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

韩冰

<>  </P>
% h9 [5 N. s+ r8 z: b1 |+ B' ?<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
0 w- A7 i7 W7 Q* M3 N/ h<>{ </P>
<> . </P>
4 l. G; s3 T$ ~2 Q4 U<> . </P>
# {" Q: o: |; b- s4 C+ l- t* D<>} </P>
2 _( w# Y4 j+ V' Q5 R3 \<>extern TMemoEx memoex; </P>
<>  </P>
3 u5 k( L% ^, Z* O$ O6 T" V<>Class TForm1 : Class TForm </P>
4 p( L: y2 U, `. R% c" q, z  U& u<>{ </P>
2 i3 f4 S9 c5 {9 k, \<>public: </P>
<> TMemoEx   *MemoEx; </P>
<> . </P>
<> . </P>
' a- ]: l, ]; M+ r1 u/ W<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
. C2 m; V4 e( g: A" v<>{ </P>
% s# E; g6 E1 N! l<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
$ F2 x& c5 n; J/ M0 z7 |2 x7 ~' A<> . </P>
* [* M( r5 k( L2 o' U<> . </P>
3 X' h) V) N# \8 D/ a<>} </P>
. r3 q: v" H2 Z<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
. L5 e) w2 _7 _<> extern TMemoEx memoex; </P>
5 v# J  ^' w# F2 }- O" |0 J! G<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>