БОЛЬШОЙ FAQ ПО DELPHI



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


Shift влево, Shift вправо считается Escape-ом и карается Reboot-ом!


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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ