Delphi WebBrowser1使用进度条查看浏览器状态

本文整理自网络，侵删。

 
WebBrowser1使用进度条查看浏览器状态

复制代码
procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
  ProgressBar1.Max:=ProgressMax;
  if Progress = -1 then
     //ProgressBar1.Visible:=false
  else
  begin
    ProgressBar1.Position := Progress;
    ProgressBar1.Visible := True;
  end;
  if  ProgressBar1.Position = ProgressMax then
    //ProgressBar1.Visible:=False;
end;
 

相关阅读 >>

Delphi 熊猫烧香核心源码

Delphi 将汉字翻译成拼音缩写的函数

Delphi xe intraweb 程序在iis下的发布详细教程

Delphi中窗体的事件

Delphi结合winrar生成自解压文件

Delphi 基础学习指定字符替换其他字符

Delphi isthisleapyear 判断闰年

Delphi获取当前计算机所有盘符

xe7提示找不到sharedactivitycontext函数

Delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser1使用进度条查看浏览器状态