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

韩冰

<>  </P>
& N# A$ j' U) ~& s6 Y) E  j0 S<>  </P>
<>  </P>
* h# e; r3 @# T+ N<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
0 B( o) ^2 B9 [% p<>Class TMemoEx : public TMemo </P>
3 `- O0 N2 h2 Z: r<>{ </P>
<> . </P>
<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
<>  </P>
: F% C8 z, h# G% q. T: @<>Class TForm1 : Class TForm </P>
<>{ </P>
$ \) |; K. o: X8 x6 i4 K<>public: </P>
. S5 m1 w$ V; p1 ^$ \8 _<> TMemoEx   *MemoEx; </P>
! u  J' q, p4 q) |$ X) b- H2 ?/ }<> . </P>
  l. r, q: H; n- v7 ^<> . </P>
<>} </P>
<>  </P>
- V, U# P4 R8 |7 J7 c  t<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
( T& X9 P0 {" c<> . </P>
<> . </P>
0 o+ t. Y4 B( A% s5 d" x; y( g4 ^<>} </P>
<>总之，遵循以下步骤即可： </P>
5 x2 [7 O" |! }3 |: N. L<> 类定义; </P>
<> extern TMemoEx memoex; </P>
4 t; ]8 }0 n! _2 h$ H/ m7 @<P> TMemoEx   *MemoEx; </P>
5 F- y$ Y( C- k3 A<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx-&gt;Parent=this; </P>