Thema: Delphi ProgressBar ausführen

Einzelnen Beitrag anzeigen

Benutzerbild von gordon freeman
gordon freeman

Registriert seit: 28. Jun 2003
Ort: Gelsenkirchen
337 Beiträge
 
Delphi 2005 Personal
 
#3

Re: ProgressBar ausführen

  Alt 23. Mär 2005, 10:07
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;
  Mit Zitat antworten Zitat