Delphi 中WebBrowser控件详解实例.docx

Delphi中WebBrowser控件详解实例

2008-10-18下午06:58

很久都没有原创了，前几天帮朋友做了个网址发布程序，主要应用到了WebBrowser控件。今天主要给大家演示一下过程，让大家学习一下Delphi工具。

WebBrowser功能：

1。自动加载网页

2。去除WebBrowser滚动条3。WebBrowser自身打开页面4。禁止右键

1。首先，新建一个FROM窗体：

2。加入一个WEBBROWSER控件

3。调整后如下：

4.这样一个webbrowser就完成了，下一步我们来让程序打开后自动加载一个网页。核心代码：WebBrowser1.Navigate(http://v.28.la);

双击窗体灰色处，对窗体进行初始化，在代码窗口中输入（Begin与End间输入核心代码）：

procedureTForm1.FormCreate(Sender:TObject);begin

WebBrowser1.Navigate(http://v.28.la); //窗体初始化完成WEBBROWSER加载一个网页

end;

5。下面我们来实现禁止WEBBROWSER控件的滚动条功能：

核心代码：WebBrowser1.oleobject.Document.body.Scroll:=‘no’;

利用这个代码去掉滚动条的前提是webbrowser中必须有打开的网页，也就是在网页加载完

完毕后再去掉滚动条。所以首先要判断页面是否加载完毕，如果加载完毕，就执行上面的语句

去掉滚动条。这时就要引入一个按扭控件来触发程序加入SPEEDBUTTEN

调整形后：

好了，现在可以实现禁止滚动条的功能了：

第一步：在WebBrowser1DocumentComplete事件中置一个标志tag:=1(代表加载完毕)

单击WEBBROWSER控件，在WebBrowser属性

的EVENS事件中找到WebBrowser1DocumentComplete （双击）

然后在代码窗口中输入：

procedureTForm1.WebBrowser1DocumentComplete(Sender:TObject;constpDisp:IDispatch;varURL:OleVariant);

begin

tag:=1;//去掉Webbrowser1滚动条的标志

end;

对SpeedButten控件操作：（双击onClick)

加入如下代码：

procedureTForm1.SpeedButton1Click(Sender:TObject);var

Doc:IHTMLDocument2;begin

tag:=0;//去掉Webbrowser1滚动条的标志WebBrowser1.Navigate2(’’);while(tag=0)doApplication.ProcessMessages;WebBrowser1.oleobject.Document.body.Scroll:=‘no’;end;

注意：使用前必须在uses中加入mshtml;

这样WebBrowser就禁止了滚动条。主要应用到了IHTMLDocument2。6。

让Webbrowser中的链接点击时在自身窗口打开：（单击WebBrowser控件，属性中的EVENS事件，双击NewWindow2）

代码窗口中输入：

procedureTForm1.WebBrowser1NewWindow2(Sender:TObject;varppDisp:IDispatch;varCancel:WordBool);

begin

//將新視窗在自身開啟

ppdisp:=webBrowser1.Application;

end;

7。最后是禁用WebBrowser中的右键功能，放一个ApplicationEvents控件：

ApplicationEvents控件属性Evens事件中双击Onmessage：

在代码窗口中输入：

procedureTForm1.ApplicationEvents1Message(varMsg:tagMSG;varHandled:Boolean);

begin

if(Msg.message=wm_rbuttondown)or(Msg.message=wm_rbuttonup)or(msg.message=WM_RBUTTONDBLCLK) then

begin

ifIsChild(Webbrowser1.Handle,Msg.hwnd)thenHandle