文件名称:IE4SinkDemo
- 所属分类：
- Internet/网络编程
- 资源属性：
- [Windows] [Visual C] [源码] [Dephi] [Pascal]
- 上传时间：
- 2008-10-13
- 文件大小：
- 19.4kb
- 下载次数：
- 0次
- 提 供 者：
- s**
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
unit Cweb2
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser
procedure FormCreate(Sender: TObject)
procedure WebBrowser1DocumentComplete(Sender: TObject
const pDisp: IDispatch var URL: OleVariant)
procedure DemoEventSink(Sender: TObject)
private
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
uses MSHTML, IEDocHostUIHandler, IEConst, DHTMLEvent,comobj
var
FDocHostUIHandler: TDocHostUIHandler //为屏蔽右键菜单
Doc : IHTMLDocument2
Element : IHTMLElement
EventSink: TDHTMLEvent
procedure TForm1.FormCreate(Sender: TObject)
begin
FDocHostUIHandler := TDocHostUIHandler.Create //为屏蔽右键菜单
EventSink := TDHTMLEvent.Create
WebBrowser1.Navigate(GetCurrentDir + \\index.htm )
end
procedure TForm1.DemoEventSink(Sender: TObject)
Var
S:String
-unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls. SHDocVw, StdCtrls. ActiveX type TForm1 = class (TForm) WebBrowser 1 : TWebBrowser procedure FormCreate (Sender : TObject) procedure WebBrowser1DocumentComp lete (Sender : TObject const pDisp : IDispatch var URL : OleVariant) procedure DemoEventSink (Sender : TObject) private public (Public declaration s) var end Form1 : TForm1 implementation ($ R *. dfm) uses MSHTML , IEDocHostUIHandler, IEConst, DHTMLEven t, comobj var FDocHostUIHandler : TDocHostUIHandler / / right-click menu for shielding Doc : IHTMLDocument2 Element : IHTMLElement EventSink : TDHTMLEvent procedure TForm1.FormCreate ( Sender : TObject) begin FDocHostUIHandler : = TDocHostUIHandler.Create / / right-clic
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser
procedure FormCreate(Sender: TObject)
procedure WebBrowser1DocumentComplete(Sender: TObject
const pDisp: IDispatch var URL: OleVariant)
procedure DemoEventSink(Sender: TObject)
private
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
uses MSHTML, IEDocHostUIHandler, IEConst, DHTMLEvent,comobj
var
FDocHostUIHandler: TDocHostUIHandler //为屏蔽右键菜单
Doc : IHTMLDocument2
Element : IHTMLElement
EventSink: TDHTMLEvent
procedure TForm1.FormCreate(Sender: TObject)
begin
FDocHostUIHandler := TDocHostUIHandler.Create //为屏蔽右键菜单
EventSink := TDHTMLEvent.Create
WebBrowser1.Navigate(GetCurrentDir + \\index.htm )
end
procedure TForm1.DemoEventSink(Sender: TObject)
Var
S:String
-unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls. SHDocVw, StdCtrls. ActiveX type TForm1 = class (TForm) WebBrowser 1 : TWebBrowser procedure FormCreate (Sender : TObject) procedure WebBrowser1DocumentComp lete (Sender : TObject const pDisp : IDispatch var URL : OleVariant) procedure DemoEventSink (Sender : TObject) private public (Public declaration s) var end Form1 : TForm1 implementation ($ R *. dfm) uses MSHTML , IEDocHostUIHandler, IEConst, DHTMLEven t, comobj var FDocHostUIHandler : TDocHostUIHandler / / right-click menu for shielding Doc : IHTMLDocument2 Element : IHTMLElement EventSink : TDHTMLEvent procedure TForm1.FormCreate ( Sender : TObject) begin FDocHostUIHandler : = TDocHostUIHandler.Create / / right-clic
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 3970996ie4sinkdemo.zip 列表 Project1.dpr Project1.res readme.txt SHDocVwEvents.pas SHDocVw_TLB.pas Unit1.dfm Unit1.pas