当前位置: 开源爱好者 » 编程教程 » Delphi教程 » 正文

Delphi使用Webbrowser组件的一些用法和属性说明

Delphi使用Webbrowser组件的一个例子,包括了对Webbrowser组件一些属性的说明等,以下为属性的参数说明:

Refresh:方法,刷新当前页面。
Stop:方法,停止调用或打开当前页面。
LocationName:属性(WideString),当前位置的名称。
LocationURL:属性(WideString),当前位置的URL。
Busy: 属性(Boolean),是否正忙。
Visible: 属性(Boolean),浏览器窗口是否可见。
(以下属性为在TWebBrowser新增,TWebBrowser_V1中没有,其作用有待探索)
StatusBar: 属性(Boolean),是否显示状态栏。
StatusText: 属性(WideString),状态栏内容。
ToolBar: 属性(SYSINT),工具栏中的内容。
MenuBar: 属性(Boolean),是否显示菜单条。
FullScreen: 属性(Boolean),是否全屏显示。
Offline: 属性(Boolean),是否脱机浏览。
AddressBar: 属性(Boolean),是否显示地址栏。

下面来看一个使用Webbrowser的例子:

WebBrowser1.Silent := True; //禁止提示脚步错误
WebBrowser1.GoHome; //到浏览器默认主页
WebBrowser1.Refresh; //刷新
WebBrowser1.GoBack; //后退
WebBrowser1.GoForward; //前进
WebBrowser1.Navigate('URL');//打开指定页面
WebBrowser1.Navigate('about:blank');  //打开空页面
//改变背景色或背景图片:
WebBrowser1.OleObject.document.body.bgcolor := '#FF0000';
WebBrowser1.OleObject.document.body.background := '图片地址';
//禁止弹出窗口
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
  Cancel := True;
end;
让Webbrowser中的链接点击时在自身窗口打开:在NewWindow2事件中设置代码:
procedure TForm1.WebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;  
var Cancel: WordBool);
begin // 將新視窗在自身開啟        
ppdisp := webBrowser.Application;
end;
//屏蔽右键菜单
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  with Msg do
  begin
    if not IsChild(WebBrowser1.Handle, hWnd) then Exit;
    Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);
  end;
end;
//替换右键菜单
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var mPoint: TPoint;
begin
  if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
     ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
  begin
      GetCursorPos(mPoint);//得到光标位置
      PopupMenu1.Popup(mPoint.X, mPoint.Y);//弹出popupmenu1的菜单
      Handled:=True;
  end;
end;

在使用WebBrowser组件时,可以使用以下代码获取当前页面的URL地址(可以在WebBrowser1DocumentComplete事件中写入):

var
pt : IWebBrowser;
str : String ;//保存页面URL
pt := WebBrowser1.Application as IWebBrowser ;
str := pt.LocationURL ;

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图