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