Кнопка или пункт меню выполняет другую функцию при нажатой кнопке shift
Материал из DRKB
Кнопка или пункт меню выполняет другую функцию при нажатой кнопке shift[править | править код]
Если вы хотите, чтобы кнопка или пункт меню выполнял другую функцию при нажатой кнопке shift, вы можете использовать функцию GetKeyState.
GetKeyState принимает в качестве параметра виртуальный код кнопки и возвращает значение меньше 0, если кнопка нажата.
Вот пример события OnClick для кнопки:
procedure Form1.Button1Click(Sender: TObject);
begin
if GetKeyState(VK_SHIFT) < 0 then
ShowMessage('Кнопка Shift нажата')
else
ShowMessage('Обычное нажатие кнопки');
end;
Отмечу, что вы можете также использовать параметры VK_CONTROL или VK_MENU для проверки нажатия кнопок control и alt, соответственно!
Author: Matt Hamilton
Source: Взято с сайта http://blackman.wp-club.net/
ID: 01235