📄 webbrowser4_tlb.pas
字号:
var PostData: OleVariant;
const Headers: WideString;
var Cancel: WordBool) of object;
TWebBrowser_V1NavigateComplete = procedure(Sender: TObject; const URL: WideString) of object;
TWebBrowser_V1StatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
TWebBrowser_V1ProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object;
TWebBrowser_V1CommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
TWebBrowser_V1NewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer;
const TargetFrameName: WideString;
var PostData: OleVariant;
const Headers: WideString;
var Processed: WordBool) of object;
TWebBrowser_V1TitleChange = procedure(Sender: TObject; const Text: WideString) of object;
TWebBrowser_V1FrameBeforeNavigate = procedure(Sender: TObject; const URL: WideString;
Flags: Integer;
const TargetFrameName: WideString;
var PostData: OleVariant;
const Headers: WideString;
var Cancel: WordBool) of object;
TWebBrowser_V1FrameNavigateComplete = procedure(Sender: TObject; const URL: WideString) of object;
TWebBrowser_V1FrameNewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer;
const TargetFrameName: WideString;
var PostData: OleVariant;
const Headers: WideString;
var Processed: WordBool) of object;
TWebBrowser_V1Quit = procedure(Sender: TObject; var Cancel: WordBool) of object;
TWebBrowser_V1PropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;
TWebBrowser_V1 = class(TOleControl)
private
FOnBeforeNavigate: TWebBrowser_V1BeforeNavigate;
FOnNavigateComplete: TWebBrowser_V1NavigateComplete;
FOnStatusTextChange: TWebBrowser_V1StatusTextChange;
FOnProgressChange: TWebBrowser_V1ProgressChange;
FOnDownloadComplete: TNotifyEvent;
FOnCommandStateChange: TWebBrowser_V1CommandStateChange;
FOnDownloadBegin: TNotifyEvent;
FOnNewWindow: TWebBrowser_V1NewWindow;
FOnTitleChange: TWebBrowser_V1TitleChange;
FOnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate;
FOnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete;
FOnFrameNewWindow: TWebBrowser_V1FrameNewWindow;
FOnQuit: TWebBrowser_V1Quit;
FOnWindowMove: TNotifyEvent;
FOnWindowResize: TNotifyEvent;
FOnWindowActivate: TNotifyEvent;
FOnPropertyChange: TWebBrowser_V1PropertyChange;
FIntf: IWebBrowser;
function GetControlInterface: IWebBrowser;
protected
procedure CreateControl;
procedure InitControlData; override;
function Get_Application: IDispatch;
function Get_Parent: IDispatch;
function Get_Container: IDispatch;
function Get_Document: IDispatch;
public
procedure GoBack;
procedure GoForward;
procedure GoHome;
procedure GoSearch;
procedure Navigate(const URL: WideString); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); overload;
procedure Refresh;
procedure Refresh2; overload;
procedure Refresh2(var Level: OleVariant); overload;
procedure Stop;
property ControlInterface: IWebBrowser read GetControlInterface;
property DefaultInterface: IWebBrowser read GetControlInterface;
property Application: IDispatch index 200 read GetIDispatchProp;
property Parent: IDispatch index 201 read GetIDispatchProp;
property Container: IDispatch index 202 read GetIDispatchProp;
property Document: IDispatch index 203 read GetIDispatchProp;
property TopLevelContainer: WordBool index 204 read GetWordBoolProp;
property Type_: WideString index 205 read GetWideStringProp;
property LocationName: WideString index 210 read GetWideStringProp;
property LocationURL: WideString index 211 read GetWideStringProp;
property Busy: WordBool index 212 read GetWordBoolProp;
published
property TabStop;
property Align;
property DragCursor;
property DragMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property OnBeforeNavigate: TWebBrowser_V1BeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate;
property OnNavigateComplete: TWebBrowser_V1NavigateComplete read FOnNavigateComplete write FOnNavigateComplete;
property OnStatusTextChange: TWebBrowser_V1StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
property OnProgressChange: TWebBrowser_V1ProgressChange read FOnProgressChange write FOnProgressChange;
property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
property OnCommandStateChange: TWebBrowser_V1CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
property OnNewWindow: TWebBrowser_V1NewWindow read FOnNewWindow write FOnNewWindow;
property OnTitleChange: TWebBrowser_V1TitleChange read FOnTitleChange write FOnTitleChange;
property OnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate read FOnFrameBeforeNavigate write FOnFrameBeforeNavigate;
property OnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete;
property OnFrameNewWindow: TWebBrowser_V1FrameNewWindow read FOnFrameNewWindow write FOnFrameNewWindow;
property OnQuit: TWebBrowser_V1Quit read FOnQuit write FOnQuit;
property OnWindowMove: TNotifyEvent read FOnWindowMove write FOnWindowMove;
property OnWindowResize: TNotifyEvent read FOnWindowResize write FOnWindowResize;
property OnWindowActivate: TNotifyEvent read FOnWindowActivate write FOnWindowActivate;
property OnPropertyChange: TWebBrowser_V1PropertyChange read FOnPropertyChange write FOnPropertyChange;
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TWebBrowser
// Help String_ : WebBrowser Control
// Default Interface: IWebBrowser2
// Def. Intf. DISP? : No
// Event Interface: DWebBrowserEvents2
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TWebBrowserStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
TWebBrowserProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object;
TWebBrowserCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
TWebBrowserTitleChange = procedure(Sender: TObject; const Text: WideString) of object;
TWebBrowserPropertyChange = procedure(Sender: TObject; const szProperty: WideString) of object;
TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant;
var Flags: OleVariant;
var TargetFrameName: OleVariant;
var PostData: OleVariant;
var Headers: OleVariant;
var Cancel: WordBool) of object;
TWebBrowserNewWindow2 = procedure(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object;
TWebBrowserNavigateComplete2 = procedure(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant) of object;
TWebBrowserDocumentComplete = procedure(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant) of object;
TWebBrowserOnVisible = procedure(Sender: TObject; Visible: WordBool) of object;
TWebBrowserOnToolBar = procedure(Sender: TObject; ToolBar: WordBool) of object;
TWebBrowserOnMenuBar = procedure(Sender: TObject; MenuBar: WordBool) of object;
TWebBrowserOnStatusBar = procedure(Sender: TObject; StatusBar: WordBool) of object;
TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object;
TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object;
TWebBrowserWindowSetResizable = procedure(Sender: TObject; Resizable: WordBool) of object;
TWebBrowserWindowSetLeft = procedure(Sender: TObject; Left: Integer) of object;
TWebBrowserWindowSetTop = procedure(Sender: TObject; Top: Integer) of object;
TWebBrowserWindowSetWidth = procedure(Sender: TObject; Width: Integer) of object;
TWebBrowserWindowSetHeight = procedure(Sender: TObject; Height: Integer) of object;
TWebBrowserWindowClosing = procedure(Sender: TObject; IsChildWindow: WordBool;
var Cancel: WordBool) of object;
TWebBrowserClientToHostWindow = procedure(Sender: TObject; var CX: Integer; var CY: Integer) of object;
TWebBrowserSetSecureLockIcon = procedure(Sender: TObject; SecureLockIcon: Integer) of object;
TWebBrowserFileDownload = procedure(Sender: TObject; ActiveDocument: WordBool;
var Cancel: WordBool) of object;
TWebBrowserNavigateError = procedure(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant;
var Frame: OleVariant;
var StatusCode: OleVariant;
var Cancel: WordBool) of object;
TWebBrowserPrintTemplateInstantiation = procedure(Sender: TObject; const pDisp: IDispatch) of object;
TWebBrowserPrintTemplateTeardown = procedure(Sender: TObject; const pDisp: IDispatch) of object;
TWebBrowserUpdatePageStatus = procedure(Sender: TObject; const pDisp: IDispatch;
var nPage: OleVariant;
var fDone: OleVariant) of object;
TWebBrowserPrivacyImpactedStateChange = procedure(Sender: TObject; bImpacted: WordBool) of object;
TWebBrowserNewWindow3 = procedure(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool;
dwFlags: LongWord;
const bstrUrlContext: WideString;
const bstrUrl: WideString) of object;
TWebBrowserSetPhishingFilterStatus = procedure(Sender: TObject; PhishingFilterStatus: Integer) of object;
TWebBrowserWindowStateChanged = procedure(Sender: TObject; dwWindowStateFlags: LongWord;
dwValidFlagsMask: LongWord) of object;
TWebBrowser = class(TOleControl)
private
FOnStatusTextChange: TWebBrowserStatusTextChange;
FOnProgressChange: TWebBrowserProgressChange;
FOnCommandStateChange: TWebBrowserCommandStateChange;
FOnDownloadBegin: TNotifyEvent;
FOnDownloadComplete: TNotifyEvent;
FOnTitleChange: TWebBrowserTitleChange;
FOnPropertyChange: TWebBrowserPropertyChange;
FOnBeforeNavigate2: TWebBrowserBeforeNavigate2;
FOnNewWindow2: TWebBrowserNewWindow2;
FOnNavigateComplete2: TWebBrowserNavigateComplete2;
FOnDocumentComplete: TWebBrowserDocumentComplete;
FOnQuit: TNotifyEvent;
FOnVisible: TWebBrowserOnVisible;
FOnToolBar: TWebBrowserOnToolBar;
FOnMenuBar: TWebBrowserOnMenuBar;
FOnStatusBar: TWebBrowserOnStatusBar;
FOnFullScreen: TWebBrowserOnFullScreen;
FOnTheaterMode: TWebBrowserOnTheaterMode;
FOnWindowSetResizable: TWebBrowserWindowSetResizable;
FOnWindowSetLeft: TWebBrowserWindowSetLeft;
FOnWindowSetTop: TWebBrowserWindowSetTop;
FOnWindowSetWidth: TWebBrowserWindowSetWidth;
FOnWindowSetHeight: TWebBrowserWindowSetHeight;
FOnWindowClosing: TWebBrowserWindowClosing;
FOnClientToHostWindow: TWebBrowserClientToHostWindow;
FOnSetSecureLockIcon: TWebBrowserSetSecureLockIcon;
FOnFileDownload: TWebBrowserFileDownload;
FOnNavigateError: TWebBrowserNavigateError;
FOnPrintTemplateInstantiation: TWebBrowserPrintTemplateInstantiation;
FOnPrintTemplateTeardown: TWebBrowserPrintTemplateTeardown;
FOnUpdatePageStatus: TWebBrowserUpdatePageStatus;
FOnPrivacyImpactedStateChange: TWebBrowserPrivacyImpactedStateChange;
FOnNewWindow3: TWebBrowserNewWindow3;
FOnSetPhishingFilterStatus: TWebBrowserSetPhishingFilterStatus;
FOnWindowStateChanged: TWebBrowserWindowStateChanged;
FIntf: IWebBrowser2;
function GetControlInterface: IWebBrowser2;
protected
procedure CreateControl;
procedure InitControlData; override;
function Get_Application: IDispatch;
function Get_Parent: IDispatch;
function Get_Container: IDispatch;
function Get_Document: IDispatch;
public
procedure GoBack;
procedure GoForward;
procedure GoHome;
procedure GoSearch;
procedure Navigate(const URL: WideString); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVaria⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -