Brug af Gauge

Læser du denne artikel, vil du kunne lære hvordan man bruger TGauge. Artiklen er ikke ret lang, da TGauge ikke er en ret stor komponent. Gauge er en komponent du kan bruge til at vise brugeren at så langt er "dit" og "dad" nået.

Det første du skal gøre er, starte delphi. Dernæst skal du lægge en TTimer og en TGauge på din form. TTimer ligger i fanen "System" og TGauge ligger i fanen "Samples". Tilpas formen + Gauge. Når du har gjort det skal du åbne kode vinduet for formen's Onshow. Det gøre du ved at klikke på fanen "Events" i Object inspectoren og dobbel klikke på Onshow. Sørg for at du har valgt form1 i din Object Treeview. Nu skal vi så skrive lidt kode. :

procedure TForm1.FormShow(Sender: TObject);

begin

Gauge1.MinValue := 0;

Gauge1.MaxValue := 10{sekunder}*10000{millisekunder}

end;

Du har lige gjort sådan at når TGauge starter, vil den starte fra 0 og køre i 100 sekunder i sekunder. Det står i OnShow fordi at TGauge vil starte når formen kommer frem.

Nu skal vi kode lidt med TTimer, men stadig også med TGauge. Du skal nu få TTimer og TGauge på en måde samarbejde. Dobbel klik på Timer1, så der kommer et kode vindue frem. Nu skal du være klar til at skrive lidt kode igen:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Gauge1.Progress := Gauge1.Progress + Timer1.Interval;

If Gauge1.Progress >= Gauge1.MaxValue then

    begin

         Timer1.Enabled := false;

end;

Oversat på dansk: Gauge1 's fremskridt er ligmed, Gauge1's fremskridt plus Timer1's mellemrum/mellemtid. Hvis Gauge1's fremskridt er mere end Gauge1's Maximalværdi, så slå Timer1's artivering fra.
Her er ikke så meget andet at lave end at bare starte projektet og se om det virker. Start projektet ved at klikke på den grønne pil i menu toolbaren, eller også trykker du bare på F9 på tasterturet. Programmet skulle gerne starte og Gauge vil dermed køre i 100 sekunder. Hvis det gøre det så har du fået det til at virke. Tillykke!!

Ja, her endte denne artikel. Der vil komme en part 2 hvor vi vil lave en lille julespil /gætte leg, hvor man skal gætte et spørgsmål og hvor vi bruger TGauge som tid. Glæd dig! Ellers så ønsker jeg jer en Held og Lykke med delphi.