TWebBrowser中的箭头键切换控件
我有一个关于TWebBrowser (微软超文本标记语言/IE)处理箭头键的问题。
基本上，如果我托管TWebBrowser并加载一个HTML文件，它会错误地显示该文件，并且箭头键可以正常工作。如果我添加一个注册表项FEATURE_BROWSER_EMULATION或使用HTML元标题，它会正确地呈现X-UA-Compatible，但箭头键停止工作(它们确实可以工作，但它们想要“Tab键”到其他控件，因此内容滚动不再工作)。看起来，在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将键设置为0(或处理为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;}
}
}问题是，这不是一回事。如果设置为true，IsInputKey似乎只处理上述C#代码中TWebBrowser控件的键，但我在C#/C++ Builder中找不到这样的等价物。
你知道我如何去掉托管TWebBrowser的Delphi/C++Builder主窗体的按键处理，而只让TWebBrowser只为上面的箭头键处理按键事件吗？
要加载到WebBrowser控件中的测试超文本标记语言(如果无法使用箭头键滚动进行测试，只需增加<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>要重现的代码-创建一个带有TWebBrowser和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>");
}Stack Overflow用户
发布于 2021-04-25 23:21:21
感谢@whosrdaddy下面的解决方案起作用了(取自here)。关键是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;https://stackoverflow.com/questions/66694248
复制相似问题
腾讯云开发者
