当我按左Alt键

时间:2016-06-24 09:50:46

标签: delphi controls delphi-7

我在Delphi 7项目中使用XPMan单元来使控件呈圆形。当我打开一个模态对话框并按下左Alt键(通过Alt-Shift将键盘布局更改为另一种语言)时,一些控件(很可能是按钮)消失,当我将光标移到它们上面时,它会再次出现。当我删除XPMan时,错误停止。有没有其他解决方案,然后删除XPMan? (这与Win10图元文件相同)

1 个答案:

答案 0 :(得分:0)

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() 方法调用上述过程。这将解决您的问题。