Zitat von
mquadrat:
Wenn du das Füllen mit in die Methode gepackt hast, dann hast du ja Zugriff auf das Form. Also statt dem Setzen der Label Caption setzt du eben Min, Max und Pos der Progressbar. Dann halt in deine Schleife ein ProcessMessages rein, sont wird das Fenster und damit die Bar nicht neu gezeichnet.
ok super läuft soweit, etwas rucklig aber naja
Delphi-Quellcode:
FrmStatus.sProgressbar1.Min := 0;
FrmStatus.sProgressbar1.Max := 100;
FrmStatus.Label1.Caption:= 'login...';
FrmStatus.Label2.Caption:= '10%';
FrmStatus.sProgressbar1.Position := FrmStatus.sProgressbar1.Position + 10;
Application.ProcessMessages;
...usw