DELPHI Webbrowser 响应回车键(EWB响应正常,无需额外代码)
来源:互联网 发布:centos 编译php7 编辑:程序博客网 时间:2024/05/17 19:15
增加一个ApplicationEvents,在Message事件中如下代码(WB看自己的WEBBROWSER 控件命名)
procedure TFrmMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean); //专为IE内核 WEBBROWSER 响应回车键
const
StdKeys = [VK_TAB, VK_RETURN, VK_DELETE, VK_BACK]; { standard keys }
ExtKeys = [VK_LEFT, VK_RIGHT]; { extended keys }
fExtended = $01000000; { extended key flag }
begin
Handled := False;
with Msg do
if ((Message >= WM_KEYFIRST) and (Message <= WM_KEYLAST)) and
((wParam in StdKeys) or {$IFDEF VER120}(GetKeyState(VK_CONTROL) < 0) or {$ENDIF}
(wParam in ExtKeys) and ((lParam and fExtended) = fExtended)) then
try
if IsChild(WB.Handle, hWnd) then
{ handles all browser related messages }
begin
with WB.Application as IOleInPlaceActiveObject do
Handled := TranslateAccelerator(Msg) = S_OK;
if not Handled then
begin
Handled := True;
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
except
end;
end;
- DELPHI Webbrowser 响应回车键(EWB响应正常,无需额外代码)
- webbrowser响应回车键 代码已经简化了,适合新手阅读
- WebBrowser嵌入对话框中,回车键不响应
- 响应回车键
- 按回车键响应指定按钮代码
- 网页上响应回车键
- VC响应回车键
- VB 按钮响应回车键
- 响应键盘回车键事件
- html按钮响应回车键
- 让Button响应回车键
- Delphi WebBrowser 响应回车Enter键(兼容Silverlight)
- 怎样使按钮响应回车键
- performSelector额外的消息响应机制
- DELPHI如何响应事件
- 使用defaultbutton控制回车键的响应按钮
- 回车键响应某个按钮的JS
- 响应web页面上的回车键事件。。。
- 算法入门经典第二版第10章uva1635
- 用链栈实现任意进制的转化
- 原生js学习笔记
- RFC相关设置及使用
- 类加载器
- DELPHI Webbrowser 响应回车键(EWB响应正常,无需额外代码)
- 关于 Java 中 finally 语句块的深度辨析
- final关键字
- Okhttp作为现在最火的一个网络请求框架
- Servlet3.0特性-模块化
- 解析软件安装包错误PackageParserException-- Failed adding asset path解决方法
- sap调用外部rfc函数
- MySQL 使用 MRG_MyISAM 存储引擎来实现分表
- 通貨膨脹成因