キーボードの状態監視 (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;