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

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

Автор: Борисов Сергей

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

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

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

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

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта