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

韩冰

<>  </P>
<>  </P>
* s% R0 c4 ]& c- p1 m* S  L  D: X0 A<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
" q7 n! y: X0 j8 E1 G<> . </P>
<> . </P>
<>} </P>
9 P) }: j/ B* d* I  p) o<>extern TMemoEx memoex; </P>
<>  </P>
) R; ]9 x0 I# l) |) }& m<>Class TForm1 : Class TForm </P>
1 ]5 q9 S" B3 G3 p' o<>{ </P>
<>public: </P>
<> TMemoEx   *MemoEx; </P>
" Q3 r: a* Z1 ?8 j; r1 r<> . </P>
3 l6 Q5 e1 p8 O<> . </P>
6 A( J5 U1 `% I( _* T4 R<>} </P>
<>  </P>
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
4 D: e6 ~! ?& ], J. D<> . </P>
7 x  }4 ?# Y5 R9 V7 [<> . </P>
<>} </P>
  W1 }6 \: t$ l# B  k) c- N<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
. a  t8 z5 H8 Q' }+ e<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
/ B; R, _2 x( K) X<P> MemoEx-&gt;Parent=this; </P>