• Registered: 2014-02-14
  • Posts: 10,294

Topic: [Скрипт] Создание горячего сочетания клавиш

Создание горячего сочетания клавиш на примере Shift+Ctrl+P



procedure Form1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
     if (Key = ORD('P')) and Shift and Ctrl then
     begin
          ShowMessage('Shift + Ctrl + P');
     end;
end;


begin
     Form1.KeyPreview := True;
end.

Проект с данным примером:

Post's attachments

Attachment icon HotKey on Form (Shift + Alt + P).zip 2.45 kb, 1111 downloads since 2015-02-20 

Dmitry.
  • samum
  • New member
  • Offline
  • Registered: 2016-09-20
  • Posts: 4

Re: [Скрипт] Создание горячего сочетания клавиш

День добрый.

Подскажите, как правильно использовать функциональные клавиши F1...F12 ?
Спасибо.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Скрипт] Создание горячего сочетания клавиш

Приветствую.


procedure Form1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
   if Key = VK_F1 then ShowMessage('F1');
   if Key = VK_F2 then ShowMessage('F2');
   if Key = VK_F3 then ShowMessage('F3');
end;
Dmitry.