キーボードの状態監視 (ID:19617)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

GetKeyState(VK_KANA)できたっけ？
と思って試してみましたが、やっぱりできませんよね？
「CAPS」CapsLockキー
「INS」Insertキー
「NUM」Numlockキー
はお好きなメッセージをキャプチャしてあげてください。
（略）
  private
    OriginalProc:TWndMethod;
    procedure EditSubclassProc(var Msg:TMessage);
（略）
procedure TForm1.EditSubclassProc(var Msg: TMessage);
  procedure drawoutIMEstate;
  begin
      Label1.Caption := 'NumLock : ' + inttostr(GetKeyState(VK_NUMLOCK));
      Label2.Caption := 'Control : ' + inttostr(GetKeyState(VK_CONTROL));
      Label3.Caption := 'INSERT  : ' + inttostr(GetKeyState(VK_INSERT));
      Label4.Caption := 'KANA    : ' + inttostr(GetKeyState(VK_KANA));
  end;
begin
  case Msg.Msg of
    WM_IME_ENDCOMPOSITION:drawoutIMEstate;
    WM_IME_COMPOSITION   :drawoutIMEstate;
    WM_IME_NOTIFY        :drawoutIMEstate;
    WM_IME_CONTROL       :drawoutIMEstate;
    WM_IME_KEYDOWN       :drawoutIMEstate;
    WM_IME_KEYUP         :drawoutIMEstate;
    WM_KEYDOWN           :drawoutIMEstate;
    WM_KEYUP             :drawoutIMEstate;
  end;
  OriginalProc(Msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OriginalProc := Edit1.WindowProc;
  Edit1.WindowProc := EditSubclassProc;
end;

←解決時は質問者本人がここをチェックしてください。

戻る