Определить состояние CapsLock

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetKeyState(VK_CAPITAL) and 1 = 0 then
    Form1.Caption := "Caps lock не горит"
  else
    Form1.Caption := "Caps lock горит";
end;

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Определить состояние CapsLock", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!