Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Gauge1.Progress := Gauge1.Progress + 1;
If Gauge1.Progress = 21 then Timer1.Interval := 5000;
If Gauge1.Progress = 26 then Timer1.Interval := 1;
If Gauge1.Progress = 48 then Timer1.Interval := 1000;
If Gauge1.Progress = 57 then Timer1.Interval := 100;
If Gauge1.Progress = 60 then Timer1.Interval := 1;
If Gauge1.Progress = 95 then Timer1.Interval := 10000;
If Gauge1.Progress = 98 then Timer1.Interval := 1000;
If Gauge1.Progress = 100 then Label1.Visible := True;
end;
Die gesamte Schöpfungskraft besteht also darin den Fortschrittsbalken der Gauge Komponente zu setzen.
