Главная страницаОбратная связьКарта сайта

Как выполнять другую команду по нажатию на кнопку, если зажата клавиша Shift


procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetKeyState(VK_SHIFT) < 0 then
    ShowMessage("Кнопка Shift нажата")
  else
    ShowMessage("Обычное нажатие кнопки");
end;


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


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

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


Copyright © 2008 - 2024 Дискета.info