Search - Form1 - CodeBus

Search - Form1 - List

[ISAPI-IE] IE4SinkDemo DL : 0: 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
Date : 2025-12-21 Size : 19kb User :