таймер 5 минут

Ответ от Протоукр[гуру]
опять ты! кто тебе Делфи показал, задушил бы собственными руками!! ! ))))))
var Form1: TForm1;
Seconds,Minutes,Hours:Integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Seconds:=Seconds-1;
if(seconds<0) Then
Begin
Minutes:=Minutes-1;
Seconds:=59;
end ;
if (minutes<0) Then
Begin
Hours:=Hours-1;
Minutes:=59;
end ;
If
((hours=0) And
(minutes = 0) And (seconds = 0))
Then Timer1.Enabled:=False;
Label1.Caption:=IntToStr(Hours)+' '+IntToStr(Minutes)+' '+IntToStr(Seconds);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Seconds:=0; Minutes:=5; Hours:=0;
end;
Протоукр
Мыслитель
(5205)
возьми второй вариант, он гораздо лучше, чем я тут наворотил