TidPOP3 - Retrieve - keine Fortschritsanzeige möglich?

[DelphiPeter]

Hallo Leute!

Ich nerve nun ein weiteres mal mit einer Frage zur idPOP3 Komponente. Und zwar lade ich Nachrichten mit Retrieve runter, leider zeigt nur mein Code im onWork, OnWorkBegin und onWorkEnd keine Wirkung.

Dort steht nämlich:

Delphi-Quellcode:

procedure TfmMain.POP3ClientWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  ProgressBar1.Position := AWorkCount;
  application.ProcessMessages;
end;

procedure TfmMain.POP3ClientWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  Progressbar1.Max := AWorkCountMax;
  Application.ProcessMessages;
end;

procedure TfmMain.POP3ClientWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  Progressbar1.Position := 0;
end;

mach ich denn was falsch? Finde in der Demo dazu nichts.

[geskill]

Hallo,
im Forum finde ich einen Eintrag, dass es ein Problem mit AWorkCountMax gibt. Das kannst du dir ja hier mal anschauen.

Grüße