Delphi

Разработка сайтов

Наши проекты

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

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

Автор:

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

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

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

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