ProgressBar ausführen

[gordon freeman]

Zitat von StoRmtec:

Und jetzt möchte ich gerne eine ProgressBar einbauen die wenn ein Button vorbei ist den anderen dann anzeigt in der progressbar.

Soll jetzt der Button angezeigt werden, der momentan ausgeführt wird, oder soll einfach nur prozentual anhand eines Balkens angezeigt werden, wie weit die gesamte Sache schon durchgelaufen ist?

Bei letzterem:

Delphi-Quellcode:

procedure THauptfenster.Button1Click(Sender: TObject);
begin
ProgressBar1.position := 0;
  AP1.Click;
ProgressBar1.position := 20;
  AP2.Click;
ProgressBar1.position := 40;
  AP3.Click;
ProgressBar1.position := 60;
  AP4.Click;
ProgressBar1.position := 80;
  AP5.Click;
ProgressBar1.position := 100;
end;