NumLockキーを無効化するには？ (ID:11176)

名前

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

本文

なお，キーフックを使用しなくても，数値キーをいつでも有効にすれば
いい，というのであれば，以下のコードでも可能です．

//====================================================================
//  Fomr作成時にはNumLockをONに
//====================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
     if NumLockKeyState=False then ChangeNumLockState;
end;
//====================================================================
//  NumLockがOFFならONにしてから...
//====================================================================
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if NumLockKeyState=False then begin
       ChangeNumLockState;
     end;
     //以降，他のキー操作
end;
//====================================================================
//  NumLockキーの状態を検査
//  True  : NumLockがON
//  False : NumLockがOFF
//====================================================================
function TForm1.NumLockKeyState: Boolean;
var
     AKeyState:TKeyboardState;
begin
     GetKeyboardState(AKeyState);
     Result := Boolean(AKeyState[VK_NUMLOCK]);
end;
//====================================================================
//  NumLockキーの状態を変更する(Windows NT系専用)
//====================================================================
procedure TForm1.ChangeNumLockState;
begin
     keybd_event(VK_NUMLOCK, 0, 0, 0);
     keybd_event(VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0);
end;

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

戻る