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

Previous  Top  Next

    
 

 

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

©Drkb::01235

Взято с сайта http://blackman.wp-club.net/