Кнопка или пункт меню выполняет другую функцию при нажатой кнопке shift

сли вы хотите, чтобы кнопка или пункт меню выполнял другую функцию при нажатой кнопке 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

Новые статьи