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