Zitat von
himitsu:
Du mußt jetzt im Prinzip nur noch statt TStringList die TProgressStringList zum Einlesen verwenden,
dem OnProgress eine Ereignisprozedur verpassen und darin dann deine Progressbar anzeigen.
'nen einfaches Beispiel wäre z.B.:
Delphi-Quellcode:
Procedure TForm1.MyProgressEvent(Sender: TObject; Progress: Integer);
Begin
Case Progress of
-3: Label1.Caption := 'lese Datei...';
-2: Label1.Caption := 'dekodiere...';
-1: Label1.Caption := 'leere alte Liste';
10000: Label1.Caption := 'fertig';
Else Begin
Label1.Caption := 'Add';
ProgressBar1.Position := Progress;
End;
End;
End;
das funktioniert fürs panel aber in meiner progressbar1 tut sich nix.
auffallen tut mir das meine anzeige... laden hat... gedauert von ca. 4 auf 22 sekunden springt, meine anwendung aber offenbar früher wieder befehle entgegennimmt...
Zitat von
himitsu:
Application.ProgressMessages;
das hier hab ich in
Application.ProcessMessages;
geändert, denke das war gemeint, oder?