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.
