条件循环问题。。。。。。。。。。。。。在线等 ( 积分: 50 )

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #1

D的朋友，大家好
if a=1 then
zhlh(panel1,button2);
if a=2 then
zhlh(panel2,button3);
if a=3 then
zhlh(panel3,button4);
向上面的这3个条件 有没有办法写成下面这样的:
for a=1 to 3 do
zhlh(panel(a),button(a+1));

 

J

jxauwxb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #2

for a=1 to 3 do
zhlh(Tpanel(FindComponent('panel'+inttostr(a))),
Tbutton(FindComponent('button'+inttostr(a+1))))

 

D

delphi_lp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #3

for a:=1 to 3 do
zhlh(Tpanel(FindComponent('panel'+inttostr(a))),
Tbutton(FindComponent('button'+inttostr(a+1))))

 

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #4

zhlh(Tpanel(FindComponent('panel'+inttostr(a))),
Tbutton(FindComponent('button'+inttostr(a+1))))
这个是没问题
那如果 panel 和 button在别的窗体就会出错拉
zhlh(Form2.Tpanel(FindComponent('panel'+inttostr(a))),
Form2.Tbutton(FindComponent('button'+inttostr(a+1)))) 就会提示没定义Tpanel和TButton
麻烦大哥在帮看看

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #5

引用声明所在单元
uses
StdCtrls, //这个里面有TButton
ExtCtrls; //这个里面有TPanel
或者直接在Form1上放个Button和Panel，再删掉，会自动引用的

Form2.TButton？没有这样的吧
zhlh(Tpanel(Form2.FindComponent('panel'+inttostr(a))),
Tbutton(Form2.FindComponent('button'+inttostr(a+1))));

 

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-06

• #6