Capturar nuestras propias hotkeys

2315 vistas

Para capturar nuestras propias hotkeys en un formulario tendremos que activar la propiedad KeyPreview de éste (KeyPreview := true) y codificar su evento OnKeyDown

Veamos un ejemplo para controlar el Ctrl+A



delphi
  1. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  2.   Shift: TShiftState);
  3. begin
  4.   if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
  5.     ShowMessage('Ctrl-A');
  6. end;