Delphi中WebBrowser控件详解实例1.docx
- 文档编号:8475076
- 上传时间:2023-01-31
- 格式:DOCX
- 页数:9
- 大小:107.65KB
Delphi中WebBrowser控件详解实例1.docx
《Delphi中WebBrowser控件详解实例1.docx》由会员分享,可在线阅读,更多相关《Delphi中WebBrowser控件详解实例1.docx(9页珍藏版)》请在冰豆网上搜索。
Delphi中WebBrowser控件详解实例1
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)then
Handled:
=true;
end;
end;
到此完成对程序的制作,调试
去滚动条后:
--------------------------------------------------------
===================================
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,OleCtrls,SHDocVw,mshtml,AppEvnts;
type
TForm1=class(TForm)
WebBrowser1:
TWebBrowser;
Button1:
TButton;
ApplicationEvents1:
TApplicationEvents;
procedureWebBrowser1DocumentComplete(Sender:
TObject;
constpDisp:
IDispatch;varURL:
OleVariant);
procedureButton1Click(Sender:
TObject);
procedureApplicationEvents1Message(varMsg:
tagMSG;
varHandled:
Boolean);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
{$R*.dfm}
procedureTForm1.WebBrowser1DocumentComplete(Sender:
TObject;
constpDisp:
IDispatch;varURL:
OleVariant);
begin
tag:
=1;
end;
procedureTForm1.Button1Click(Sender:
TObject);
var
a:
IHTMLDocument2;
begin
tag:
=0;
WebBrowser1.Navigate('');
while(tag=0)doApplication.ProcessMessages;
WebBrowser1.oleobject.Document.body.Scroll:
='no';
a:
=WebBrowser1.DocumentasIHTMLDocument2;
a.Get_ParentWindow.ScrollBy(0,20);
end;
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)then
Handled:
=true;
end;
end;
end.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi WebBrowser 控件 详解 实例