Delphi中WebBrowser拦截网页Alert对话框消息
2011-01-28 10:42
323 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, ActiveX; type IDocHostShowUI = interface(IUnknown) ['{c4d244b0-d43e-11cf-893b-00aa00bdce1a}'] function ShowMessage(hwnd: THandle; lpstrText: POLESTR; lpstrCaption: POLESTR;dwType: longint; lpstrHelpfile: POLESTR; dwHelpContext: longint;var plResult: LRESULT): HRESULT; stdcall; function ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand: integer;dwData: longint; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; stdcall; end; TWebBrowser = class(SHDocVw.TWebBrowser,IDocHostShowUI) protected function ShowMessage(hwnd: THandle; lpstrText: POLESTR; lpstrCaption: POLESTR;dwType: longint; lpstrHelpfile: POLESTR; dwHelpContext: longint;var plResult: LRESULT): HRESULT; stdcall; function ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand: integer;dwData: longint; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; stdcall; end; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TWebBrowser } function TWebBrowser.ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand, dwData: Integer; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; begin Result := S_FALSE; end; function TWebBrowser.ShowMessage(hwnd: THandle; lpstrText, lpstrCaption: POLESTR; dwType: Integer; lpstrHelpfile: POLESTR; dwHelpContext: Integer; var plResult: LRESULT): HRESULT; begin plResult := MessageBoxW(hwnd,PWChar(lpstrText),'标题',64); Result := S_OK; end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('c:/Sample.htm'); end; end.
相关文章推荐
- Delphi中WebBrowser拦截网页Alert对话框消息(转)
- Delphi中WebBrowser拦截网页Alert对话框消息(转)
- JS基础第3-2课:alert 消息对话框、confirm 消息对话框
- 复制alert消息对话框的内容
- 让JS的Alert消息提示框失效禁止弹出网页警告框
- 入门学习5:Toast 消息显示 Alert对话框
- javascript:警告(alert 消息对话框),确认(confirm 消息对话框)
- 第三章 警告(alert 消息对话框)
- WebBrowser拦截网页Alter消息
- axWebBrowser拦截网页Alter消息
- JavaScript入门篇 第二天(消息对话框+网页弹出)
- 拦截对话框中的按钮消息
- C#实现在前端网页弹出警告对话框(alert)的方法
- js拦截alert对话框另类应用
- Delphi中点击网页弹出的Alert对话框的确定按钮
- JavaScript入门(一) - 警告(alert 消息对话框)
- 2-2警告(alert 消息对话框)
- javascript:警告(alert 消息对话框),确认(confirm 消息对话框)
- javascript 警告(alert 消息对话框)
- 在web网页编程时常用的消息对话框总结