Delphi 中WebBrowser控件详解实例
Delphi 中WebBrowser控件详解实例 转
2008-05-07 12:07
很久都没有原创了，前几天帮朋友做了个网址发布程序，主要应用到了WebBrowser控件。
今天主要给大家演示一下过程，让大家学习一下Delphi工具。
WebBrowser功能：
1。自动加载网页
2。去除WebBrowser滚动条
3。WebBrowser自身打开页面
4。禁止右键
1。首先，新建一个from窗体：
2。加入一个WEBBROWSER控件
3。调整后如下：
4.这样一个webbrowser就完成了，下一步我们来让程序打开后自动加载一个网页。
核心代码：WebBrowser1.Navigate('http://v.28.la');
双击窗体灰色处，对窗体进行初始化，在代码窗口中输入（Begin 与 End间输入核心代码）：
procedure TForm1.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 （双击）
然后在代码窗口中输入：
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
tag:=1; //去掉Webbrowser1滚动条的标志
end;
对SpeedButten控件操作：（双击onClick)
加入如下代码：
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Doc: IHTMLDocument2;
begin
tag := 0; //去掉Webbrowser1滚动条的标志
WebBrowser1.Navigate2(’http://www.baidu.com’);
while(tag=0) do Application.ProcessMessages;
WebBrowser1.oleobject.Document.body.Scroll := ‘no’;
end;
注意：使用前必须在uses中加入mshtml;
这样WebBrowser就禁止了滚动条。主要应�
相关文档：
Delphi键盘按键伪码
用法：if key = chr(VK_RETURN) then...
常数名称 十六进制值 十进制值 对应按键
VK_LBUTTON 01 1 鼠标的左键
VK_RBUTTON 02 2 鼠标的右键
VK-CANCEL 03 3 Contol-break 执行
VK_MBUTTON 04 4 鼠标的中键（三按键鼠标)
VK_BACK 08 8 Backspace键
VK_TAB 09 9 Tab键
VK_CLEAR 0C 12 Clear键
VK ......
1，规范简介
本规范主要规定Delphi源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。
2，一般格式规范
2.1 缩进
缩进就是在当源程序的级改变时为增加可读 ......
前段时间因为项目需要，获取指定文件的图标，绕了很多弯子，现在弄出来了，跟大家共享下.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
TForm1 = class(TForm)
l ......
Delphi编写系统服务二：系统服务和桌面程序的区别 收藏
Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程，系统服务和桌面程序的区别是：
系统服务不用登陆系统即可运行；
系统服务是运行在System Idle Process/System/smss/winlogon/services下的，而桌面程序是运行在Explorer下的；
......
delphi中Webbrowser的使用
1.获得网页中变量值
htm中<script> var currID=123</script>
程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID
值得说明的是,变量可以是javascript定义的,也可以是vbs ......
