Gauge

[-Phantom-]

Wie versickst du die E-mails den? Mit der Indy-Komponente? Wenn ja haben diese Indy Komponenten ( meistens ) das Event "Workbegin", "Work" und "Endwork" ...

So hab ich das dann gemacht

Delphi-Quellcode:

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
progressbar1.Position := AworkCount;
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
Progressbar1.Max := AworkCountmax;
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
Progressbar1.Position := 100;
Showmessage('emails wurden verschick')

Man macht es aber nicht mit der "idHTTP" sondern mit "IdSMTP"

http://www.delphi-library.de/topic_P...n_10361,0.html

Hoffe ich konnte dir weiter helfen