数学建模社区-数学中国

标题: BCB中派生VCL类及动态地创建控件 [打印本页]
作者: 韩冰    时间: 2005-1-26 12:22
标题: BCB中派生VCL类及动态地创建控件
<>  </P>
  S* R- W, f! l: C1 \<>  </P>6 ]/ t2 [" o8 g* o* P" F7 K- q
<>  </P>
+ P- V3 J7 k& y( n5 t8 i; y<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>2 L3 H( }5 z. X& c7 Z# p" N
<>Class TMemoEx : public TMemo </P>: [+ k3 O8 \. F# k% J
<>{ </P>* h; ~. K* N/ Z) y  |0 `
<> . </P>
2 X) ^! k+ h2 T% `$ j<> . </P>
( ~3 m) a7 m2 a& i<>} </P>
% Q2 \: i: ~# }; n1 x! f; n<>extern TMemoEx memoex; </P>
/ |+ f* B' X$ X$ p<>  </P>" _( P( X1 H: Y6 q
<>Class TForm1 : Class TForm </P>
4 N# N' u/ M# J+ j<>{ </P>" \8 C! X' U/ w. r. z; v, v
<>public: </P>
& Q; H+ v/ \, o2 }  |9 i' Y# L<> TMemoEx   *MemoEx; </P>
/ M8 K$ l: J/ k<> . </P>
9 a+ i! m0 U. T& O% v<> . </P>+ ^( a( M1 F5 L/ f9 x" X( o9 z0 Y
<>} </P>: v. Z8 \4 [6 r" i& o
<>  </P>
& W% u" L9 N' }3 b- I; o<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>
3 L7 v1 l' P. ?- K8 n- ~% V% y) \<>{ </P>
1 j* ]8 k/ b9 d5 S3 g  Z) [6 z<> MemoEx=new TMemoEx(this); </P>$ P1 j) y- q+ h# X0 T+ Q5 u% I
<> MemoEx-&gtarent=this; </P>
0 V3 ~& N3 ]- r2 y4 {$ o; x<> . </P>: y- v4 a$ {9 h5 L+ I1 J& }
<> . </P>
" K1 V. ~& F& E: S<>} </P>
6 o# L; v& R0 c5 U& F; \<>总之，遵循以下步骤即可： </P>2 o% y1 r! I- G6 O' K
<> 类定义; </P>0 m/ E7 u! l5 O! o! C. O8 I6 E
<> extern TMemoEx memoex; </P>
+ o0 p* ?7 p# p<P> TMemoEx   *MemoEx; </P>" D; `1 G$ T, z/ H
<P> MemoEx=new TMemoEx(this); </P>
& Z0 T* l+ u6 f<P> MemoEx-&gt;Parent=this; </P>



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