数学建模社区-数学中国

标题: BCB中派生VCL类及动态地创建控件 [打印本页]
作者: 韩冰    时间: 2005-1-26 12:22
标题: BCB中派生VCL类及动态地创建控件
<>  </P>
5 q, D9 G, L3 f( a# f<>  </P>
' t) f0 A7 m' X9 N8 I" w7 l<>  </P>4 k/ e" f5 A3 C0 X
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>+ t7 S# n7 C; m  j2 ]/ u& Z, D1 ^+ \
<>Class TMemoEx : public TMemo </P>
0 M% w; H; O* Y$ Y<>{ </P>
2 G. X1 ]. C4 k<> . </P># F/ |: c& V1 x) f6 E
<> . </P>
5 ]; f4 {; e5 }0 @& ^* x/ V8 ~<>} </P>
9 _" D' X) @" Q' |<>extern TMemoEx memoex; </P>$ [6 @' y# d& F4 ~" A1 f
<>  </P>
' j7 Y" W0 X9 m$ O<>Class TForm1 : Class TForm </P>) R/ j2 N& [: D
<>{ </P>. B8 A; `6 k; a  y1 s. B0 c
<>public: </P>
) D( L6 v3 d/ l6 U1 \<> TMemoEx   *MemoEx; </P>( q  m. M  l8 o* U  }
<> . </P>
* O- _1 B# H5 A9 N& g<> . </P>
- E. Z; h7 }" `+ E, e4 L<>} </P>2 y1 B: p& B. d  \9 J
<>  </P>* b# r6 @  |. H- \1 S' T
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
) b2 u* B  U1 _" u$ s<>{ </P>1 s0 m- p0 G3 x. J+ M
<> MemoEx=new TMemoEx(this); </P>" K2 ?" \) q4 n  I( \$ B( E& V
<> MemoEx-&gtarent=this; </P>$ e1 D) |; Q' ]0 z! `
<> . </P>4 ]/ ~* }4 M: v1 m/ Z; V; i/ Z
<> . </P>. o9 [- K2 R) M3 P$ F
<>} </P>  }0 f$ b6 w& B! ]$ E! M
<>总之，遵循以下步骤即可： </P>: U( t+ |) w. i7 S
<> 类定义; </P># t& @0 }6 f$ ~& Q5 I
<> extern TMemoEx memoex; </P>
$ ~, g+ K/ t2 l* J<P> TMemoEx   *MemoEx; </P>9 c) d  }- G% g9 C& M+ x' L
<P> MemoEx=new TMemoEx(this); </P>! b2 X' I2 G3 D& o  j2 J
<P> MemoEx-&gt;Parent=this; </P>



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5