delphi - TWebBrowser 中的方向键切换控件
问题描述
我TWebBrowser
对箭头键的(MSHTML/IE)处理有疑问。
基本上,如果我托管TWebBrowser
并加载一个 HTML 文件,它会错误地显示它并且箭头键可以工作。如果我添加一个注册表项FEATURE_BROWSER_EMULATION
或使用X-UA-Compatible
元标题,它会正确呈现 HTML,但箭头键停止工作(它们确实有效,但他们想“制表”到其他控件,因此内容滚动不再有效)。看起来好像键在TWebBrowser
.
我通过处理 keydown 事件然后使用类似的东西找到了解决方案:
WebBrowser1->Document->parentWindow->scrollBy(0, 100);
该解决方案有效,但我发现了一些更好的东西,我正在尝试将其转换为 Delphi/C++ Builder:
我发现的这个 C# 代码执行以下操作:
private void webBrowser1_PreviewKeyDown(object sender, PreviewKeyDownEventArgs e)
{
if (e.KeyCode == Keys.Down || e.KeyCode == Keys.Up || e.KeyCode == Keys.Left || e.KeyCode == Keys.Right)
{
e.IsInputKey = true;
return;
}
}
我可以在表单上执行类似的KeyPreview
设置true
,然后在表单的 KeyDown 事件中处理 VK_LEFT / VK_RIGHT / VK_DOWN / VK_UP 键,或使用其他消息处理或 ApplicationEvents,将 Key 设置为 0(或 Handled to true
,同样的效果)例如:
void __fastcall TForm1::ApplicationEventsMessage(tagMSG &Msg, bool &Handled)
{
if (Msg.message == WM_KEYDOWN && ActiveControl &&
ActiveControl->InheritsFrom(__classid(TWebBrowser))
)
{
if (Msg.wParam == VK_LEFT) {Handled = true; return;}
if (Msg.wParam == VK_RIGHT) {Handled = true; return;}
if (Msg.wParam == VK_UP) {Handled = true; return;}
if (Msg.wParam == VK_DOWN) {Handled = true; return;}
}
}
问题是,这不是一回事。IsInputKey
,如果设置为true
,似乎只处理TWebBrowser
上述 C# 代码中的控件的键,但我在 Delphi/C++ Builder 中没有找到这样的等价物。
知道如何删除托管 Delphi/C++Builder 主窗体的键处理,TWebBrowser
并且只允许对TWebBrowser
上面的箭头键进行键事件的处理吗?
加载到 WebBrowser 控件中的测试 HTML(如果它不能滚动以使用箭头键进行测试,只需增加<div>
标签中字体的大小:
<html>
<head>
<!-- This meta tag ensures that TWebBrowser runs in IE-11 mode -->
<!-- Which causes issues with scrolling with arrow keys -->
<meta http-equiv="X-UA-Compatible" content="IE=edge">
</head>
<body>
<div style="font-size:36px;">
01<br>
02<br>
03<br>
04<br>
05<br>
06<br>
07<br>
08<br>
09<br>
10<br>
11<br>
12<br>
13<br>
14<br>
15<br>
16<br>
17<br>
18<br>
19<br>
20<br>
21<br>
22<br>
23<br>
24<br>
25<br>
26<br>
27<br>
28<br>
29<br>
30<br>
</div>
</body>
</html>
要重现的代码 - 使用 aTWebBrowser
和 a创建一个表单并将其TButton
添加到TButton
代码中:(单击控件 - 鼠标滚轮有效,向上/向下翻页有效,向上/向下箭头想要“tab”进入按钮(或其他控件):
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WebBrowser1->Navigate("about:<html><head><meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\"></head><body><div style=\"font-size:36px;\">01<br>02<br>03<br>04<br>05<br>06<br>07<br>08<br>09<br>10<br>11<br>12<br>13<br>14<br>15<br>16<br>17<br>18<br>19<br>20<br>21<br>22<br>23<br>24<br>25<br>26<br>27<br>28<br>29<br>30<br></div></body></html>");
}
解决方案
感谢@whosrdaddy - 以下解决方案有效(取自此处)。关键是IsDialogMessage
功能。
// FIX voor webbrowser keys, install application wide message handler
constructor TBrowserHelper.Create(ADebug : TDebuggerSlot);
begin
Debug := ADebug;
if Assigned(Debug) then
Debug.OutputL(Self, 'Create', '', LVL_SPARSE);
OldMessageHandler := Application.OnMessage;
Application.OnMessage := MsgHandler;
end;
destructor TBrowserHelper.Destroy;
begin
if Assigned(Debug) then
Debug.OutputL(Self, 'Destroy', '', LVL_SPARSE);
Application.OnMessage := OldMessageHandler;
inherited;
end;
procedure TBrowserHelper.MsgHandler(var Msg: TMsg; var Handled: Boolean);
const StdKeys = [VK_BACK, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT];
var IOIPAO: IOleInPlaceActiveObject;
Browser : TEmbeddedWb;
begin
try
Browser := nil;
if Assigned(Screen.ActiveForm) then
begin
if Screen.ActiveForm is TFrm_Browser then
Browser := TFrm_Browser(Screen.ActiveForm).Browser;
if Assigned(Browser) then
begin
Handled := IsDialogMessage(Browser.Handle, Msg);
if Handled then//and (not Browser.Busy) then
begin
// if Assigned(Debug) then
// Debug.OutputL(Self, 'MsgHandler', Format('Message: %x, wParam: %x, lParam: %x', [Msg.message, Msg.wParam, Msg.lParam]), LVL_FULL);
if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and (Msg.wParam in StdKeys) then
begin
//nothing - do not pass on Backspace, Left, Right, Up, Down arrows
end
else
begin
IOIPAO := (Browser.Application as IOleInPlaceActiveObject);
if Assigned(IOIPAO)then
IOIPAO.TranslateAccelerator(Msg)
end;
end;
end;
end;
except
//Handled := False; // leave it for other handlers
end;
end;
initialization
begin
iCaptSize := GetSystemMetrics(SM_CYCAPTION);
iBorderSize := GetSystemMetrics(SM_CXBORDER);
iBorderThick := GetSystemMetrics(SM_CXSIZEFRAME);
BrowserHelper := TBrowserHelper.Create(nil);
end;
finalization
begin
if Assigned(BrowserHelper) then
FreeAndNil(BrowserHelper);
end;
推荐阅读
- django - 连接错误:url:/API/Admin/login.php 超出了最大重试次数
- wordpress - WooCoommerce 自定义端点 - 启用身份验证保护
- java - 在后台线程中终止长时间运行的任务
- angular - 如何解决cors?
- join - 在 UPDATE sql 中加入 DB2
- pytest - 当假设产生片状测试错误时如何调试?
- javascript - 使用 API 使用 Vue.js 获取数据时没有响应或错误
- jquery - 总是取第一个元素 id。如何使其重置事件并实际获取元素
- r - 如何用 r 中的适当值填充连续时间序列中的值
- swiftui - 有没有办法在 SwiftUI 列表中隐藏滚动指示器?