Omkring ur

Hvis du vil have at den efter 10 sek. siger at du har 20 sek. til at programmet lukker, det kan du gøre sådan her:

Tilføj to timere. Den ene sætter du med interval på 10000, den anden med et interval på 20000. Den med 20000 sætter du enabled til False;

Så klikker du på den med 10000 og skriver:

ShowMessage('Du har brugt for lang tid, programmet lukker om 20 sek.');
Timer2.Enabled := True;
Timer1.Enabled := False;


Så klikker du på Timer2 og skriver:

Application.Terminate;


Det er det.

Den første med at lave et normalt ur, så mener du ikke digitalt ur vel?
Hvis det ikke er digital, så er det vildt svært at lave. Men et digitalur er vildt nemt.

Jo.. Jeg mener et digitalt ur..

ok

Så sætter du bare en Timer og en Label ind på din form.

Så dobbeltklikker du på timeren og skriver: Label1.Caption := TimeToStr(Now);

Så har du et ur.

Okay... Tak...

virker det hele nu?

skal du ikke lukke?

noget feed-back?

alex-andersen: Jeg lavede engang en variant af digitaluret hvor jeg naturligvis gik hele vejen med TSegment (et segment i et digitaltal), TDigit (som indeholdt 7 segmenter der kunne danne alle tal) og TWatch som styrede det. Jeg kunne derved vise tallene så store som jeg havde lyst.

Never mind: Jeg har læst flere steder at du ikke kan stole på at "now" faktisk er nu. Det skyldes at now-funktionen ikke regnes som tidskritisk og kan risikere at blive vippet af CPU'en indtil noget vigtigere er blevet afviklet. Mener kun det er for purister og har selv ikke haft de store kvaler med at bruge TDateTime (for det er så p....elegant/let). Der findes dog andre timere som du kan stole mere på.

- men de er sværere at bruge.

Noget jeg ikke har tænkt på før er, om der ikke findes en font der ligner segment-tallene. Det er sikkert letteste måde at få det til at ligne på.