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

[复制链接]

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

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

|招呼Ta 关注Ta

) W4 o L4 F6 s8 L3 L一.$ o4 h( A( W+ j9 |0 N6 a" E AnsiString nameString("TButton");: c& o! h l% f" R( ? N TButton * button;( O* y7 P, |: ]1 Q$ G for(int i=0; i < ComponentCount; i++); O; O4 _8 R) q& | {1 @7 D8 T: u% K; U //Check to see if the component is a TButton 4 j- f& }0 U; n7 rif (Components->ClassNameIs(nameString)), M* ]4 w3 m2 f7 Z7 | {% I5 u$ q0 I: V, i5 Y //cast the component to a TButton *$ |, A" I9 s1 ~0 }0 Y button = (TButton *)Components;, N7 R9 f' x* y$ J" S, O* r0 H button->Font->Name = "Courier"; . b* U' v) R: ], H" J ......

$ G+ S3 e, h8 ~5 c. R8 @/ S4 O
5 b6 k) \$ o" Y( e$ j二.6 Y M! a2 s" m. r! h+ T7 w 我想动态创建和静态创建都没有太大区别，只要它属于你的MainForm。( new TButton(this) ). ! v. F9 A& Y3 r/ T7 J用一个需循环/ ^# O2 h, l7 @9 G% ~ TButton* button;, \. C2 t6 ^% Q. G for(int i=0;i<MainForm->ComponentCount;i++){; Y2 p' J7 W! ]9 R if((button= dynamic_cast<TButton*>(MainForm->Components)) != NULL )- | v7 Q9 J' _: W# k# V button->Caption="Button";5 X: | y8 r( M9 | } % p1 @4 }, r4 l% A" b) j; }