Mega Code Archive

 

Categories / Delphi / Examples

 

Trap own hotkeys in my application

Title: trap own hotkeys in my application? { Question: How can I trap my own hotkeys in my application? Answer: First set the form's KeyPreview := True and then attach a OnKeyDown handler to check if a certain key combination has been pressed. } { Frage: Wie kann ich eigene Hotkeys in meiner Anwendung abfangen? Antwort: Setze zuerst KeyPreview der Form auf True und überprüfe dann im OnKeyDown der Form, ob eine bestimmte Tastenkombination geedrückt wurde. } procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then ShowMessage('Ctrl-A pressed!'); end; // To trap global hotkeys, have a look at tip 147 // Um systemweite Hotkeys abzufangen, schau dir den Tipp 147 an.