Timer

Mam takie glupie pytanie:
Jak zrobic prosty Timer odliczajacy od zera(z sekundami, minutami i godzinami)??

A poco go robić jak masz timer systemowy! Korzystasz z polecenia now i podaje ci obecny czas. Wystarczy, że zapamiętasz w jakiejś zmiennej czas startu i potem będziesz go odejmował od tego co zwraca now a otrzymasz czas jaki minął od startu twojego programu. Wystarczy zatem jakiś tam timerek, abyś mógł co jakiś czas uaktualnić wyświetlanie infa o czasie na ekranie. [cya]

pozdro --Michał
TJS group
delphi 5,6
" Praktyka - to jest wtedy gdy wszystko działa lecz nikt nie wie dlaczego
Teoria - jest wtedy gdy nic nie działa ale wszyscy wiedzą dlaczego,
My łączymy teorię z praktyką
NIC NIE DZIAŁA I NIKT NIE WIE DLACZEGO "

http://www.4programmers.net/forum/index.php?action=show&id=25681

Możesz skorzystać z timera. Jak chcesz żeby ci się nie opózniał po trzymaniu
paska tytułowego to skorzystaj z wątków (na tej stronie jest przykład).

procedure TForm1.Timer1Timer(Sender: TObject);
begin
X := StrToInt(Secundy.Caption) + 1;
if StrToInt(Secundy.Caption) = 59 then Begin
X := 0;
Y := Y + 1;
Minuty.Caption := IntToStr(Y);
end;
if StrToInt(Secundy.Caption) = 59 then Begin
if StrToInt(Minuty.Caption) = 59 then Begin
Y := 0;
Minuty.Caption := IntToStr(Y);
Z := Z + 1;
Godziny.Caption := IntToStr(Z);
end;
end;
Secundy.Caption := IntToStr(X);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
X := 0;
Y := 0;
Z := 0;
end;