修正TEmbeddedWEB不能使用中键滚动的bug
2010-04-19 10:54
316 查看
Date: 20:16:30, 2010年3月18日
----
Modified : /EmbeddedWB/EmbeddedWB.pas
Modified : /EmbeddedWB/EmbeddedWebBrowser_D7.dpk
在项目中出现一个bug就是在内嵌的浏览器中使用鼠标中键滚动时会丢失浏览器的焦点,也就是滚动一次就需要再次点击浏览器后才能继续滚动,然后分析源码后找到问题,更改后正常。
----
Modified : /EmbeddedWB/EmbeddedWB.pas
Modified : /EmbeddedWB/EmbeddedWebBrowser_D7.dpk
{$IFDEF Enable_MouseWheelFix} function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var hwnd: THANDLE; WndClass: string; begin Result := CallNextHookEx(MouseHook, nCode, wParam, lParam); case nCode < 0 of TRUE: Exit; FALSE: begin if (wParam = WM_MOUSEWHEEL) then begin hwnd := WindowFromPoint(Mouse.CursorPos); if hwnd <> 0 then begin //hwnd := GetParent(hwnd); ///屏蔽这一句后正常 if hwnd <> 0 then begin SetLength(WndClass, 25); SetLength(WndClass, GetClassName(hwnd, PChar(WndClass), Length(WndClass))); if WndClass = 'Shell DocObject View' then Windows.SetFocus(hwnd); end; end; end; end; end; end; {$ENDIF}
在项目中出现一个bug就是在内嵌的浏览器中使用鼠标中键滚动时会丢失浏览器的焦点,也就是滚动一次就需要再次点击浏览器后才能继续滚动,然后分析源码后找到问题,更改后正常。
相关文章推荐
- 修正TEmbeddedWEB不能使用中键滚动的bug
- Delphi 修正EmbeddedWEB不能使用中键滚动的bug
- IE6下使用滤镜后链接不能点击的BUG
- c#asp.net url 传递中文参数要使用 System.Web.HttpUtility.UrlEncode 而不能使用Server.UrlEncode
- 使用FtpWebRequest下载时出现的Bug
- Mysql order表名不能使用造成的bug
- Android 集成sina sdk 开发中,不能使用web授权,停止运行解决办法
- web HTML5的自定义属性data-xxx不能使用大写字母
- eWebeditor在IE8、IE9中插入图片按钮不能使用问题的解决方法
- 使用MJRefresh时不能正常显示“没有更多数据”的bug
- IE6下使用滤镜后链接不能点击的BUG
- android2.3平台上web页面(html5中使用frame)不能滑动、不允许缩放的解决方法
- MySQL里,不能重复使用临时表的BUG竟然还没有解决
- 转载 关于android4.0模拟键盘不能使用的bug解决方案
- 【IE6的疯狂系列之十三】IE6下使用滤镜后链接不能点击的BUG
- Android使用WebView加载文字总结之中文乱码、禁止横向滚动、自动换行
- ewebapp 的Upload控件 在含有UpdatePanel 的页面中不能使用
- Webview在4.0以前的版本,html页面内跳转不能带参数的BUG
- 使用WebDriver的过程中遇到的一个Bug