关于webbrowser控件进度的问题.网上的所有方法都竟然都无效......!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

procedure TForm1.vistaClick(Sender: TObject);
begin
  web.Navigate(Trim(url.text));
end;procedure TForm1.WebProgressChange(Sender: TObject; Progress,ProgressMax: Integer);
begin
//ShowMessage(IntToStr(ProgressMax));
loadbar.Max :=ProgressMax;
loadbar.Position :=Progress;
end;即使没有注释掉 Showmessage, 连一个事件都没..网上基本都是这个方法? 但是不知道他们有没测试, 还是我的问题.请高手能写段类似IE进度条的功能.再此感激..

Answer 1

ProgressChange事件在哪里连接到WebProgressChange的？没看到代码。

Answer 2

loushangshuode hao ,nizhaotashuodezuo

Answer 3

用Indy吧，灵活方便。procedure Form1.IdHttp1WorkBegin(……);
begin
  ProgressBar1.Max := WorkCountMax;
end;procedure Form1.IdHttp1Work(……);
begin
  ProgressBar1.Position := WorkCount;
  Application.ProcessMessages;
end;

Answer 4

不知道你的問題在哪里你是沒有看到進度條變化呢。還是沒什麼提示。還是其它什麼我感覺是你這個事件是自己寫上去的。其實上你得去web的EVENTs的onProgressChange事件去雙擊一下，才會與其關聯
procedure TForm1.WebProgressChange(Sender: TObject; Progress,ProgressMax: Integer);