z.B. so:
du packst eine TGauge auf dein Formular, einen TButton und einen TTimer.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
Timer1.Interval := 100;
Gauge1.Kind := gkVerticalBar;
Gauge1.MaxValue := 100;
Gauge1.MinValue := 0;
Gauge1.ShowText := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Timer1.Enabled then
Gauge1.Progress := Gauge1.MaxValue;
Timer1.Enabled := not Timer1.Enabled;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.ProcessMessages;
if Gauge1.Progress = Gauge1.MinValue then
Timer1.Enabled := False
else
Gauge1.Progress := Gauge1.Progress - 1;
end;
Edit:
statt TGauge kannst du auch das nehmen was nahpets schreibt. Aber vom Prinzip her (Timer) sollte es gleich sein.