当我按下左 Alt 键时模态对话框中的控件消失

Question

我在 Delphi 7 项目中使用 XPMan 单元来制作圆形控件。当我打开一个模态对话框并按下左 Alt 键（通过 Alt-Shift 将键盘布局更改为另一种语言）时，一些控件（很可能是按钮）消失，当我将光标移到它们上方时再次出现。当我删除 XPMan 时，错误停止。除了删除 XPMan 之外，还有其他解决方案吗？（这个和Win10图元文件一样）

Answer 1

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

当我按下左 Alt 键时模态对话框中的控件消失

Disappearing controls in modal dialogs when I press the left Alt key

delphi

controls

delphi-7