TIDSMTP发邮件进度没显示

Question

用TIDSMTP发送邮件,为取得发送进度代码如下:
procedure TNewEmailForm.smtpcomWorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  progressBar1.Max:=AWorkcountMax;
  progressBar1.Position:=0;
end;procedure TNewEmailForm.smtpcomWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  progressBar1.Position:=AWorkCount;
end;
邮件能正常发送,但发送过程中进度条没有发映,窗口是模式的,不知以上代码何处有问题,请指教
procedure TNewEmailForm.smtpcomWorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
  progressBar1.Position:=0;
end;

Answer 1

procedure TNewEmailForm.smtpcomWorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
  progressBar1.Position:=0;
end;把这段代码中的progressBar1.Position:=0;删去看看，有可能是你发送的邮件太小了，也许加上附件就能看清楚进度条啦

Answer 2

progressBar1.Max:=AWorkcountMax;是0当做不行.你得手工给他付值给分吧.