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

韩冰

<>  </P>
<>  </P>
<>  </P>
1 E$ Z" }/ y3 M* A, p( a! l<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<>Class TMemoEx : public TMemo </P>
<>{ </P>
; f# B& m- {1 P5 M) m, }<> . </P>
<> . </P>
<>} </P>
<>extern TMemoEx memoex; </P>
$ y( V. ?. x: i: K( O<>  </P>
<>Class TForm1 : Class TForm </P>
<>{ </P>
; `6 M3 b2 j* S  ~  Q& R4 J<>public: </P>
, C6 s+ p, A1 d  h<> TMemoEx   *MemoEx; </P>
1 c0 Y9 [7 t) ~9 [' z; Q0 k<> . </P>
<> . </P>
<>} </P>
<>  </P>
( L( y# b# e  e! s; v" ^6 M2 _<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
3 p! v4 u2 v, c<>{ </P>
' j' f9 ~- ?% O5 V<> MemoEx=new TMemoEx(this); </P>
<> MemoEx-&gtarent=this; </P>
<> . </P>
* ^+ s5 |. e7 X# ]<> . </P>
- b0 v$ E  `& ^& G9 b2 l<>} </P>
3 [( c. h  Y4 t% W<>总之，遵循以下步骤即可： </P>
3 P+ T7 X; T7 o' X  m7 Z<> 类定义; </P>
% c- v9 q" _/ D: R9 R<> extern TMemoEx memoex; </P>
; {% c( u- O) E% B% ~" e<P> TMemoEx   *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
! r. B5 Y% m6 O, `<P> MemoEx-&gt;Parent=this; </P>