不知道你自己给的两段代码你试了没有,根本就没有你说的问题,看下吧~~
var i:integer;
//公有变量,最好不要用这个,用TIMER的TAG来判断最好
procedure TForm2.Button1Click(Sender: TObject);
begin
i:=30;
timer1.Enabled:=true;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
if i>0 then
begin
//label2.Caption:=inttostr(i);
form2.Caption:='还有'+inttostr(i)+'秒';
i:=i-1;
end
else
begin
i:=30;
form2.Close;
end
end;