Ir al contenido


Foto

Capturar tecla Control + Fx en Keydown


  • Por favor identifícate para responder
2 respuestas en este tema

#1 el-mono

el-mono

    Advanced Member

  • Miembros
  • PipPipPip
  • 149 mensajes

Escrito 14 octubre 2022 - 02:41

Hola. Como puedo capturar en el evento Keydown de un formulario las teclas Ctrl+F5 por ejemplo.

 

No se como usar el parametro Shift que trae este evento,

 

 


  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.460 mensajes
  • LocationMéxico

Escrito 15 octubre 2022 - 07:33

Hola. Como puedo capturar en el evento Keydown de un formulario las teclas Ctrl+F5 por ejemplo.
 
No se como usar el parametro Shift que trae este evento,

 
 
Hola amigo el-mono
 
Para capturar ese evento en un Form hay que hacer lo siguiente:
 


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.     ShowMessage('Teclas presionadas');
  4. end;
  5.  
  6. procedure TForm1.FormCreate(Sender: TObject);
  7. begin
  8.   KeyPreview := True;
  9. end;
  10.  
  11. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  12.   Shift: TShiftState);
  13. begin
  14.   if (ssCtrl in Shift) and
  15.      (Key=VK_F5) then
  16.   begin
  17.     Button1.Click;
  18.   end;
  19. end;

Saludos

Archivos adjuntos


  • 1

#3 el-mono

el-mono

    Advanced Member

  • Miembros
  • PipPipPip
  • 149 mensajes

Escrito 16 octubre 2022 - 02:34

Gracias Egostar.


  • 0




IP.Board spam blocked by CleanTalk.