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

[复制链接]

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

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

|招呼Ta 关注Ta

- F' f2 G! d; n L一.5 t% ?3 S3 B5 T C AnsiString nameString("TButton"); ! f; `8 N4 [5 {6 w, X5 j3 K. i1 `TButton * button; 8 F% Q: K6 E1 K: m9 Vfor(int i=0; i < ComponentCount; i++)! J, J) k6 `( W1 h+ C! I- r3 C$ H {. {' g% B" \: ]. m- y4 K! @ //Check to see if the component is a TButton ( G$ J7 T. Y+ F V/ W7 k" Hif (Components->ClassNameIs(nameString)) : P9 k' X3 {+ H4 Z1 M{# ?3 P# U4 h1 k# O u9 f //cast the component to a TButton * ! S9 @# a4 e8 z5 v4 d9 Xbutton = (TButton *)Components;# G( Z& p# M- | button->Font->Name = "Courier";! F9 I( h3 G& z" y ......

' {' x# K: \& ]- T0 j6 t, W- t
/ a3 R- }: `; q& Z8 }二." F$ ^. D! M( ~0 J; D3 ]' ^6 J& {# } 我想动态创建和静态创建都没有太大区别，只要它属于你的MainForm。( new TButton(this) ).$ @5 @+ q' j( o6 C$ B5 R0 m% R) w# u' q 用一个需循环1 F$ a. P1 T1 T5 ~! `' V" w2 J: T2 ~ TButton* button;0 A E2 F% I/ {1 X+ f# v6 v for(int i=0;i<MainForm->ComponentCount;i++){ 7 G' Q* x+ Z8 o& m3 A7 o/ hif((button= dynamic_cast<TButton*>(MainForm->Components)) != NULL )1 @7 g# |9 D/ _- T8 J) U: j5 g button->Caption="Button";% M. y" w% S- s5 S }8 }: Q8 y: P7 Z3 f