Topic: [Script] Creating a shortcut key
Create a shortcut key on the example of 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.
Download project:
http://myvisualdatabase.com/forum/misc. … download=1