数学建模社区-数学中国

标题: BCB中派生VCL类及动态地创建控件 [打印本页]
作者: 韩冰    时间: 2005-1-26 12:22
标题: BCB中派生VCL类及动态地创建控件
<>  </P>
3 z+ S  A: T) [. t<>  </P>
. \1 O. |: v1 P9 r<>  </P>% S( N- U' [7 D! P+ Y0 G7 [+ j- R
<>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
6 O' x, _4 n6 k, ]) z( z9 i<>Class TMemoEx : public TMemo </P>$ o% f% e. U5 I" x
<>{ </P>5 a' s: `) g  h
<> . </P>% |0 n6 D! Q# |# i6 L) C$ f
<> . </P>
4 r  m5 ~9 j6 L' t: f<>} </P>& |6 f1 F  M, s
<>extern TMemoEx memoex; </P>8 I3 E/ m( P- i8 B: y; H, J; T2 H
<>  </P>
& n& b$ z4 }4 c( O, P; B<>Class TForm1 : Class TForm </P>2 s$ h+ X$ g% j9 g# c
<>{ </P>
) h& _* `& ~- \$ H6 r<>public: </P>
0 X% f' t' p+ \3 d+ f<> TMemoEx   *MemoEx; </P>, I5 J2 P2 }( w( g5 a) e
<> . </P>' T0 f5 {+ G( m( q4 w
<> . </P>
/ d6 H9 U- c! O  w. Y2 m<>} </P>( W0 a9 ]7 H0 @! F- i' F% ^
<>  </P>
7 f$ @& ?" Y& z<>void _fastcall  TForm1::FormShow(TObject *Sender) </P>0 z' V0 z) h4 R7 v9 X
<>{ </P>; M% q4 Z0 B/ _' T9 b3 m
<> MemoEx=new TMemoEx(this); </P>
& E+ t" y$ B  P. I4 U1 j4 v<> MemoEx-&gtarent=this; </P>* Q5 u9 q4 {# a
<> . </P>
3 b& G$ m1 c3 M* ~, D" M0 O. M% B- G<> . </P>
# U- j& f2 Y, l/ J<>} </P>9 T9 y% L- x0 J' C
<>总之，遵循以下步骤即可： </P>
6 i/ S. p* o9 H" D( s0 R% ~<> 类定义; </P>
) ~* p4 J: H! J3 E<> extern TMemoEx memoex; </P>" p& T1 W' f6 K5 |9 p
<P> TMemoEx   *MemoEx; </P>
9 q0 ^- I: G% A' w& k5 q<P> MemoEx=new TMemoEx(this); </P>. b1 l! u3 w2 O" W- q  E% ]
<P> MemoEx-&gt;Parent=this; </P>



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