delphi - 嵌入式WB TAB 键

Question

我在编辑模式下使用，当用户按键时EmbeddedWB需要插入标签（4 * ）。我已经捕获了事件并执行了以下操作： TABOnKeyDown

if (Key = VK_TAB) then
begin
EditDesignerMsg.InsertHTML('&nbsp;&nbsp;&nbsp;&nbsp;');
EditDesignerMsg.EmbeddedWB.SetFocusToDoc;
end;

问题是这将焦点从控件转移到另一个控件，就像TAB在 Windows 中一样。Shift我想将焦点保持在 Web 浏览器控件中，并且只有在用户按下+时才移至上一个控件TAB。

如何才能做到这一点？

score 1 · Accepted Answer

感谢 TLama，我设法通过拦截 CM_DIALOGKEY 消息并应用消息处理程序来做到这一点，该处理程序在该点插入指定的 HTML 代码，然后通过设置AMessage.Result := 1;. 可以在此处找到如何实现此消息处理程序的更多详细信息：

1 回答 1