25. februar 2002 - 22:29Der er
2 kommentarer og 1 løsning
Stoppe variabel!
Jeg har lige lavet en test på noget, hvor jeg har en Gauge1 og nogle timere. Jeg har sat Test: Integer. Og ved OnCreate ved min form: Test:= 0; Derefter har jeg sat en kode så at den Gauge tæller på altså + 1 ved timeren. hvordan stopper jeg den når den er på 100. (Det hjalp ikke med at sætte timerens enabled til false!).
procedure TForm1.Timer1Timer(Sender: TObject); begin gauge1.AddProgress(1); test := test + 1; label1.caption := inttostr(test); if gauge1.Progress = 100 then begin timer1.Enabled := false; test := 0; end; end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.