Delphi XE2:如何防止Alt键窃取焦点？
Delphi XE2:如何防止Alt键窃取焦点？
提问于 2013-05-30 13:00:03
例如，当光标在编辑字段中时，按下并释放Alt键(不按任何其他键)会导致编辑字段失去焦点。这种情况也会发生在任何其他焦点控件上。如何在Delphi程序中为任何焦点控件防止这种情况？
回答 2
Stack Overflow用户
回答已采纳
发布于 2013-05-30 20:27:55
要做到这一点，减少意外后果，一个更好的方法是极其精确--我建议：
在表单中，覆盖WndProc：
TForm1 = class(TForm)
Edit1: TEdit;
private
FSuppress : boolean;
protected
procedure WndProc(var Message : TMessage); override;
end;并像这样实现：
procedure TForm1.WndProc(var Message : TMessage);
begin
if (Message.Msg = WM_SYSCOMMAND) and
(Message.WParam = SC_KEYMENU) and
FSuppress then Exit;
inherited WndProc(Message);
end;这是系统命令的windows消息和指示其用于检索由击键触发的菜单的特定WParam。在希望保持焦点的任何控件上设置FSuppress：
procedure TForm1.Edit1Enter(Sender: TObject);
begin
FSuppress := true;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
FSuppress := false;
end;这不会禁用ALT键，但会禁用，特别是在Edit1具有焦点时激活菜单。最重要的是，像退出程序的ALT + F4或切换窗口的ALT+TAB这样的快捷键仍然有效。
然而，我同意大多数评论，因为这可能不是您的用户群的LCD的最佳解决方案。你本质上是在破坏程序，让有能力的用户迎合无能用户的缺点。也许可以让它成为一个选项，就像Windows的粘滞键或为不同残疾人士提供的辅助功能选项。
Stack Overflow用户
发布于 2021-05-30 19:44:15
procedure SendKey_ALT;
begin
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);
end;在FormCreate()方法中调用上述过程。这将解决问题。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/16828250
复制相关文章
相似问题
腾讯云开发者
