• Registered: 2016-02-28
  • Posts: 124

Topic: Действие на форме по сочетанию клавиш?

Есть потребность включать определенные компоненты на форме по "секретному" сочетанию клавиш. Предположим "Ctrl+Shift+8". Можно как-то это реализовать?

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

Re: Действие на форме по сочетанию клавиш?

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



begin
     Form1.KeyPreview := True;
end.
Dmitry.
  • Registered: 2016-02-28
  • Posts: 124

Re: Действие на форме по сочетанию клавиш?

Огромное спасибо!