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

韩冰

<>  </P>
5 o/ c1 {7 d* S<>  </P>
<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
! g* P- }6 c3 E# K; O<> . </P>
<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
5 G( {( C2 {3 C: f. o4 N5 W<>  </P>
<>Class TForm1 : Class TForm </P>
4 T- z% U: ]& c! {5 y% e<>{ </P>
. J3 ~- }7 W2 t% E<>public: </P>
<> TMemoEx   *MemoEx; </P>
) C: j% h! s' f<> . </P>
<> . </P>
<>} </P>
<>  </P>
$ G$ `4 W* y1 K  g<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
5 J. m: z4 e6 U6 P9 d<>{ </P>
/ o; F) V9 u  U% o6 [) N<> MemoEx=new TMemoEx(this); </P>
9 I6 f9 V% Q, O5 D, P$ O9 g/ [; R<> MemoEx-&gtarent=this; </P>
. ?8 t; }, }1 V) g. U, }' x<> . </P>
1 k2 o0 R$ K3 Q, u/ A' r<> . </P>
<>} </P>
% c( u7 q5 |" E4 Z" O) R<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
2 [. |3 Q4 a  R7 H# n' G<> extern TMemoEx memoex; </P>
<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
9 R! B/ O) `1 D<P> MemoEx-&gt;Parent=this; </P>