сли вы хотите, чтобы кнопка или пункт меню выполнял другую функцию при нажатой кнопке  shift ,

вы можете использовать функцию GetKeyState .

 

GetKeyState принимает в качестве параметра виртуальный код кнопки и возвращает значение меньше 0,

если кнопка нажата.

 

Вот пример события  OnClick для кнопки:

Code:

procedure Form1.Button1Click(Sender: TObject);

begin

  if GetKeyState(VK_SHIFT) < 0 then

     ShowMessage('Кнопка Shift нажата')

  else

     ShowMessage('Обычное нажатие кнопки');

end;

  

Отмечу, что вы можете также использовать параметры VK_CONTROL или VK_MENU

для проверки нажатия кнопок control и  alt,  соответственно!

 

   Matt Hamilton

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить