delphi - 如何强制密码编辑器出现 "Caps Lock is On"气球？

Question

我有一个 TEdit，其中 PasswordChar 设置为 *，并且我希望如果 Caps Lock 模式已打开。仅当编辑器获得焦点或打开 Caps Lock 模式且焦点位于该编辑器中时，才会出现该标准气球。

我的密码编辑器是应用程序的第一个集中控件。因此，当应用程序以 Caps Lock 模式之前启动时，我看不到任何气球，直到我的密码编辑器失去焦点，然后再次获得焦点。用户有机会在一半的用例中看不到该气球!

我可以在应用程序启动时强制使用“Caps Lock is On”气球而不切换焦点吗？

Answer 1

解决方案是调用WM_KILLFOCUS和WM_SETFOCUS，这将强制编辑器显示“Caps Lock is On”气球:

  if GetKeyState(VK_CAPITAL) and 1 <> 0 then
  begin
    if edtPassword.Focused then
    begin
      PostMessage(edtPassword.Handle, WM_KILLFOCUS, 0, 0);
      PostMessage(edtPassword.Handle, WM_SETFOCUS, 0, 0);
    end;
  end;