请教：如何让IDSMTP和POP3工作时候通过ProgressBar显示进度啊？万分感激

Question

请教：如何让IDSMTP和POP3工作时候通过ProgressBar显示进度啊？万分感激
小弟试了很久，一直没有进展，不知道如何实现，请大侠出手！

Answer 1

用Gauge控件试下看，估计效果差不多吧！
Gauge1.MaxValue :=...；
Gauge1.MinValue:=...；
Gauge1.Progress :=...；给你个具体的例子看看吧，这是一个'获取邮件列表'按钮的事件
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  S: String;
  M: Integer;
  i:integer;
begin
  listbox1.Items.Clear;
  if NMPOP31.MailCount > 0 then
  begin
    for i:=1 to nmpop31.mailcount do
    begin
       nmpop31.GetMailMessage(i);
      listbox1.Items.Add(inttostr(i)+':发送自'+nmpop31.mailmessage.From );
      if i<nmpop31.mailcount then
        statusbar1.panels[0].text:='正在导入邮件列表，请稍待！现在是第'+inttostr(i)+'封邮件!'
      else
        statusbar1.panels[0].text:='邮件导入完毕！双击邮件列表可选择邮件浏览！';
      gauge1.MaxValue :=nmpop31.mailcount;
      gauge1.minvalue:=0;
      gauge1.Progress :=i;
    end;
  end;
end;

Answer 2

非常感谢 hbqinlei(漫步者) 的支持，不过，小弟非常想知道如何让IDSMTP和IDPOP3显示进度条，
主要是程序已经写好了，改动会比较麻烦，请大家帮助，谢谢！
by the way ,what is Gauge?

Answer 3

想知道用SMTP发送邮件的时候，当前发送的那个IDMessage的大小？ 当前的进度是多少？
POP3的我已经知道如何来搞定了，呵呵，大侠出手哦

Answer 4

楼主，那就不好意思了，IDSMTP和IDPOP3我不知道！
Gauge也是显示进度的一种控件啊，他在Samples页上！

Answer 5

哦，我看到Gauge了，谢谢，我试一试