Подписаться на RSS рассылку
Главная » Статьи по Delphi » Клавиатура » Отловить зажатую клавишу Shift

Отловить зажатую клавишу Shift

Автор:

Tweet

Как же выполнить другое действие если нажата клавиша Shift. Например, если в момент нажатия кнопки на форме будет зажата клавиша Shift, нужно выполнить определенное действие. Например:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetKeyState(VK_SHIFT) < 0 then
    ShowMessage('Кнопка Shift зажата')
  else
    ShowMessage('Кнопка Shift НЕ зажата');
end;

Просмотров: 6370

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

0   Спам
(24.06.2011)
1. Андрей
Спасибо! Очень помог! Всё работает!


Имя *:
Email:


Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.