Progressbar um Loadfromfile fortschritt anzuzeigen.

[Nelphin]

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?