Как выполнять другую команду по нажатию на кнопку, если зажата клавиша Shift Shift влево, Shift вправо считается Escape-ом и карается Reboot-ом! procedure TForm1.Button1Click(Sender: TObject); begin if GetKeyState(VK_SHIFT) < 0 then ShowMessage('Кнопка Shift нажата') else ShowMessage('Обычное нажатие кнопки'); end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
procedure TForm1.Button1Click(Sender: TObject); begin if GetKeyState(VK_SHIFT) < 0 then ShowMessage('Кнопка Shift нажата') else ShowMessage('Обычное нажатие кнопки'); end;