En demonstrasjon av Timer og ProgressBar komponentetene

En demonstrasjon av Timer komponentet og ProgressBar

Å lage en digitalt klokke med Delphi er noe av det enkleste du kan gjøre. Bare se her :

Dropp et Timer - komponent og en label på en ny form.

Dobbelklikk på formen eller på "Events" siden til formen og dobbelklikk på "OnCreate" og skriv følgende :

Timer1.Enabled := True;

Og på OnTimer-eventen til Timer-komponentet skriver du:

Label1.Caption := TimeToStr(Now);

Enkel ikke sant ? Det du så kan gjøre er å velge en mer spennende font til "Label1" slik at programmet ikke ser så veldig kjedelig ut.

Sett så Label1 - Aligment til alTop. Dropp en "ProgressBar" på formen og sett dens aligment til alBottom. Sett så Label1 og ProgressBar1 sin farge til "clBackground" og Form1 sin Borderstyle til "bsNone" og Anchors til "true" på akTop og akRight. Dette gjør at programmet har samme farge som skrivebordsbakgrunnen og at den holder seg oppe i høyre hjørne. Ditt program ser nå slik ut:

Timer02a.gif (4454 bytes)

I hvertfall gjør min det siden jeg har svart skrivebordsbakgrunn. For å få ProgressBar1 til å virke slik som er hensikten i mitt program sletter begin...end -paret og det du skrev i sted og skriver følgende på OnTimer-eventen til Timer-komponentet:

var
Present: TDateTime;
Hour, Min, Sec, MSec: Word;

begin
Label1.Caption := TimeToStr(Now);
Present:= Now;
DecodeTime(Present, Hour, Min, Sec, MSec);
ProgressBar1.Position := (Sec);
if ProgressBar1.Position = 60 then
ProgressBar1.Position := 0;
end;

Det jeg gjorde her var å dele f.eks. klokkeslettet 14:32:37 opp fordi jeg bare var interresert i sekundene (37). Derfor brukte jeg funksjonen "DecodeTime". Så gjorde jeg slik at ProgressBar sin posisjon blir bestemt av sekundene. Og at når det er begynt på et nytt sekund så begynner ProgressBar på 0 igjen.

Før du kjører programmet må du huske å sette ProgressBar.Max til 60 og dobbelklikk på Label1 og skriv:

Close;

Gjør det samme på Form1. Denne linjen gjør at programmet avsluttes når du trykker på det.

Når jeg kjører programmet på min maskin ser det slik ut:

Timer02b.gif (3045 bytes)

For å få en kulere look på programmet, anbefaler jeg å skifte ut ProgressBar med et nytt komponent kalt GProgress og å skifte fonten til noe litt kulere. Som for eksempel jeg har gjort under.

Timer02c.gif (3525 bytes)

Last ned filene til dette programmet.