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.
Проект с данным примером:
Dmitry.