X
xiaolaoda
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾救命呀！！
96 个 button, 按不同的功能，他们的name 有规律，分为四类，
p1,p2,p3……p24,
a1,a2,a3,……a24;
b1,b2,b3…….b24;
t1,t2,t3……….t24,
窗口还有一timer1
我现在想每隔2秒，设置两个按纽的caption,先设置name 以’p’ 开头的按钮，设置完成后，设置以’a’开头的按钮，再设置‘b’开头的按钮，最后设置’t’开头的按钮。
其中以’p’开头的按钮的caption 设置为“报表”
其中以’a’开头的按钮的caption 设置为“预览”
其中以’b’开头的按钮的caption 设置为“显示”
其中以’t’开头的按钮的caption 设置为“其它”
我的以'p'开头的button设置程序 如下,有错误，我不晓得错在那？（不报错，是功能没实现，
当执行到p5时，就不执行了p1..p5可以，p6....p24的caption不设置）
var
Form1: TForm1;
s:integer;
implementation
{$R *.DFM}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
procedure TForm1.timer1Timer(Sender: TObject);
var i:integer;
begin
s:=s+1;
for i:=0 to s do begin
if (components is TButton) and (components.Name='p'+inttostr(i)) then begin
if i<2 then begin
TButton(components[0]).caption:='报表;
TButton(components[1]).caption:='报表;
end
else if s mod 2=0 then
TButton(components).caption:='恭喜发财';
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:=0;
end;
该怎么写，请给出程序，分少，我再加140分，我拚了！！！！！
96 个 button, 按不同的功能，他们的name 有规律，分为四类，
p1,p2,p3……p24,
a1,a2,a3,……a24;
b1,b2,b3…….b24;
t1,t2,t3……….t24,
窗口还有一timer1
我现在想每隔2秒，设置两个按纽的caption,先设置name 以’p’ 开头的按钮，设置完成后，设置以’a’开头的按钮，再设置‘b’开头的按钮，最后设置’t’开头的按钮。
其中以’p’开头的按钮的caption 设置为“报表”
其中以’a’开头的按钮的caption 设置为“预览”
其中以’b’开头的按钮的caption 设置为“显示”
其中以’t’开头的按钮的caption 设置为“其它”
我的以'p'开头的button设置程序 如下,有错误，我不晓得错在那？（不报错，是功能没实现，
当执行到p5时，就不执行了p1..p5可以，p6....p24的caption不设置）
var
Form1: TForm1;
s:integer;
implementation
{$R *.DFM}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
procedure TForm1.timer1Timer(Sender: TObject);
var i:integer;
begin
s:=s+1;
for i:=0 to s do begin
if (components is TButton) and (components.Name='p'+inttostr(i)) then begin
if i<2 then begin
TButton(components[0]).caption:='报表;
TButton(components[1]).caption:='报表;
end
else if s mod 2=0 then
TButton(components).caption:='恭喜发财';
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:=0;
end;
该怎么写，请给出程序，分少，我再加140分，我拚了！！！！！