Советы по Delphi

       

Caps Lock (и другие подобные клавиши)


Как мне включить Caps Lock? (Естественно, программным путем в Delphi) ...я уж и пробовал, и спрашивал...

попробуй это...

procedure TMyForm.Button1Click(Sender: TObject);
VarKeyState : TKeyboardState;beginGetKeyboardState(KeyState);if (KeyState[VK_NUMLOCK] = 0) thenKeyState[VK_NUMLOCK] := 1elseKeyState[VK_NUMLOCK] := 0;SetKeyboardState(KeyState);end;

Для Caps Lock замените VK_NUMLOCK на VK_CAPITAL. [000144]



Содержание раздела