数学建模社区-数学中国

标题: BCB中派生VCL类及动态地创建控件 [打印本页]
作者: 韩冰    时间: 2005-1-26 12:22
标题: BCB中派生VCL类及动态地创建控件
<>  </P>
8 T1 b& l  j3 N1 L9 I6 B6 Z. T<>  </P>
# O/ g; T7 l6 l+ y! d<>  </P>
" z0 m6 r4 U7 t/ ~1 O- G<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>2 x- K- k; F' \- ]
<>Class TMemoEx : public TMemo </P>/ L% |# I, Q. f* F' K
<>{ </P>6 K# |! @* I2 J( [% Z9 S
<> . </P>8 H0 p! j6 S8 `' p4 }
<> . </P>0 g6 h. K  Y" V+ ?9 J" X
<>} </P>
. S0 L6 X" H4 M6 f7 g0 Y<>extern TMemoEx memoex; </P>
8 {0 ]- {6 Z7 R' l6 U: b<>  </P>* L3 U! q! h" I- P
<>Class TForm1 : Class TForm </P>
7 W0 A# J6 w" Z<>{ </P>
% h0 N* b2 }' {<>public: </P>& k) M: v% @2 I3 s, l. |9 ?$ n3 C& Z
<> TMemoEx   *MemoEx; </P>4 p0 M$ `  Q- u) ]
<> . </P>
  n! l5 I4 @; c' e, B: K* B<> . </P>
5 V" A4 K$ M8 I. J$ }* R, T<>} </P># P' \& Q, I* A
<>  </P>- ?& h0 F& w3 C+ B
<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
/ h. o: _  V* _+ a2 J$ O: b4 ~<>{ </P>
$ \9 a3 Z. i2 [) _5 \: [4 Q' \<> MemoEx=new TMemoEx(this); </P>, V2 k) q* _5 g) g* |) ?; l
<> MemoEx-&gtarent=this; </P>- ~1 X& }; x& ?5 q, \) K
<> . </P>
/ m5 Z5 C, Z/ y6 i<> . </P>8 b' O# f$ n! @" m
<>} </P>
" h" T8 W' Y: K& {1 Q- w<>总之，遵循以下步骤即可： </P>
4 E! E1 m2 O+ i$ C; x6 |1 i, V& i- r<> 类定义; </P>; c3 S. W' _. x# B- X: D% b( ^
<> extern TMemoEx memoex; </P>4 C5 c( Q; j3 R: q/ Z
<P> TMemoEx   *MemoEx; </P>
7 i  b2 N# O" n$ p<P> MemoEx=new TMemoEx(this); </P>
9 D3 V9 \+ j& V" I) J4 x: W<P> MemoEx-&gt;Parent=this; </P>



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