Gauge und Timer

[Gehstock]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(...); 
begin 
  Gauge1.MinValue:=0; 
  Gauge1.MaxValue:=100; 
  Gauge1.progress := gauge1.progress + 1; 
  if gauge1.Ppogress = 85 then Timer1.enabled :=false
end;

procedure TForm1.btnClick(...); 
begin 
  Timer1.enabled := true; 
end;