delphi - 如何模拟 Alt+Shift 更改 Windows 中的语言（II 部分）？

Question

问题（动态切换语言）已通过ActivateKeyboardLayout解决，但当我在表单上动态创建组件时（例如 TEdit ），它仍然存在。当该组件成为焦点时，语言将更改为默认值。在创建组件后，我再次尝试使用 ActivateKeyboardLayout，但没有成功。有任何想法吗 ？

Answer 1

首先你必须使用“Windows”然后你可以使用这个方法：ActivateKeyboardLayout（EnglishLayoutHandle，KLF_ACTIVATE）你可以为任何你想要的语言更改“EnglishLayoutHandle”

Answer 2

您的问题可能与此问题类似。

否则，此代码会执行此操作：

keybd_event(VK_MENU, 0, 0, 0);
keybd_event(VK_SHIFT, 0, 0, 0);
keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0 );
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);