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

韩冰

<>  </P>
- k+ Z9 ?8 p/ \' z<>  </P>
3 E- P, n0 U7 g<>  </P>
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
: i# p; s+ G. i. h* _, M<>Class TMemoEx : public TMemo </P>
9 l: G; B  J1 `9 M- B2 d0 S<>{ </P>
<> . </P>
+ Q+ Y# R& N) F2 I& `<> . </P>
2 U" g: [$ E' J5 n; Y<>} </P>
9 \& K8 ]3 H3 o<>extern TMemoEx memoex; </P>
; |0 z+ P0 G6 Y# D( d) ]" a<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
6 U& r# D; F2 p) Z: \5 W, S& ^" J$ Z<>public: </P>
; ~) _8 o0 f4 V2 I+ M# X4 L) e: B<> TMemoEx   *MemoEx; </P>
. M7 D. t5 q9 r7 L" f2 B9 m8 U* z2 t<> . </P>
  M$ o9 B' t/ T0 {" W& B<> . </P>
2 m3 I5 ~4 v. ]9 u<>} </P>
<>  </P>
; ]! }2 B4 |% c" A) R& S5 U8 j<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
* A& {8 x7 R9 ]" e<>{ </P>
<> MemoEx=new TMemoEx(this); </P>
: [4 k, y$ B1 I/ Z& ~- i1 [# r* a  Z<> MemoEx-&gtarent=this; </P>
7 E' |9 N7 v( U) ~2 o9 k! J! H3 Y7 ?$ k<> . </P>
  w" |$ a1 T& u: Q" Q2 [<> . </P>
+ {+ s7 O9 s3 G<>} </P>
8 t4 \. \) B1 h0 _3 k- |<>总之，遵循以下步骤即可： </P>
<> 类定义; </P>
<> extern TMemoEx memoex; </P>
' O4 x3 J) q5 C! Q, K  |8 v. B8 d. n<P> TMemoEx   *MemoEx; </P>
7 y' n' r! q0 Z; n<P> MemoEx=new TMemoEx(this); </P>
1 p/ n' z; w  s' c7 Z<P> MemoEx-&gt;Parent=this; </P>