ProgressBar ausführen

[StoRmtec]

Hallo

Hätte schon wieder eine Frage.
Und zwar ich habe ein Programm wo mehrere Buttons oben sind.
Die werden mit einen Button gesteuert.

Also wenn ich auf den Button klicke dann werden die alle nach einander ausgeführt.

Delphi-Quellcode:

procedure THauptfenster.Button1Click(Sender: TObject);
begin
AP1.Click;
AP2.Click;
AP3.Click;
AP4.Click;
AP5.Click;
end;

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

mfg
StoRmtec

[MathiasSimmack]

Es steht mir nicht zu, den Sinn von

Zitat:

Zitat von StoRmtec

Und zwar ich habe ein Programm wo mehrere Buttons oben sind.
Die werden mit einen Button gesteuert.

Also wenn ich auf den Button klicke dann werden die alle nach einander ausgeführt.

zu beurteilen, aber lege den neuen Wert des Progressbars doch einfach vor oder nach dem Aufruf einer dieser Buttonklick-Prozeduren fest.

[gordon freeman]

Zitat:

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;

[StoRmtec]

Hallo

Also das ist so pro Button ist ein ping dahinter.
Also wenn ich den Button klicke wird ein ping ausgeführt.
Und das ich nicht jeden anklicken muss habe ich es so gemacht
das einer nach dem anderen dann ausgeführt wird.

mfg
StoRmtec

[gordon freeman]

Dann sollte es mit obigem Code funktionieren!

[StoRmtec]

Ja danke.
Funktioniert.

Mfg
StoRmtec