如何遍历主窗体MainForm中所有的Button控件？

[复制链接]

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2005-1-26 12:28 |只看该作者 |正序浏览

|招呼Ta 关注Ta

) A$ D" a8 t5 c! l9 t一. 3 c$ z s/ {( _+ w0 p aAnsiString nameString("TButton");- i: @; L" j: d7 _0 x TButton * button; & W) O& I9 M f9 i% U7 C2 kfor(int i=0; i < ComponentCount; i++) ! e9 L4 [5 H$ y7 f0 t( A{4 O! T j9 e' f //Check to see if the component is a TButton6 l" U" a3 d# B; f if (Components->ClassNameIs(nameString))# Q5 J; W( R& N9 t" k8 Z+ b, g3 ^ {6 m( j: P q6 S5 v5 e( ` //cast the component to a TButton *% o: {& u% O: f* F4 d button = (TButton *)Components; ! f- R% x4 f/ I4 p; x/ U& }button->Font->Name = "Courier"; % m7 ?2 {8 h, a; Z3 }# d- ?7 q; n ......

2 m, X+ P6 x7 q. M z
( X' m! r, f6 F5 G: p二.2 o+ u7 `* K; V( T. w 我想动态创建和静态创建都没有太大区别，只要它属于你的MainForm。( new TButton(this) ). 5 c9 `, i1 j V2 i用一个需循环. R+ h9 p" {, V" E TButton* button; 2 W5 ?, R6 N7 F! pfor(int i=0;i<MainForm->ComponentCount;i++){) r* j* l- e& b. Q if((button= dynamic_cast<TButton*>(MainForm->Components)) != NULL )3 V- j% [. m" P' x, z( s button->Caption="Button";5 Q. {$ [3 p0 V$ g2 X+ P }0 T# X% ~/ Z3 f% n! N, F