Hvordan bruke timer funksjon i delphi 7

[Knast]

Hvordan bruker man timeren???

 

F.eks:

-Hvordan få en label til å vise klokken/hvor lenge programmet har kjørt

-Få en tekst til å endre seg hvert sekund

 

Flere nyttige bruksområder? (sikkert alt for mange..

 

Noen som vet om en god norsk delphi guide?

 

På forhånd takk fra uber00ben:P

[Format71]

Man setter intervall-egenskapen til ønsket oppdateringsintervall og enabled til true. Da vil man få OnTimer-eventet med gjevne mellomrom.

 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 label1.caption := timetostr(now);
end;

 

Husk at intervall er antall millisekunder mellom hvert event. 1000 gir da ett event i sekundet.

 

-Vegar

[Knast]

takk for hjelpen..