Как выполнять другую команду по нажатию на кнопку, если зажата клавиша Shift Delphi , ОС и Железо , Клавиши
Как выполнять другую команду по нажатию на кнопку, если зажата клавиша Shift
Shift влево, Shift вправо считается Escape-ом и карается Reboot-ом!
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetKeyState(VK_SHIFT) < 0 then
ShowMessage('Кнопка Shift нажата')
else
ShowMessage('Обычное нажатие кнопки');
end ;
Статья Как выполнять другую команду по нажатию на кнопку, если зажата клавиша Shift раздела ОС и Железо Клавиши может быть полезна для разработчиков на delphi & pascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
:: Главная :: Клавиши ::
