FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problemas al capturar teclas
Alguien sabría decirme el porque de que no pueda capturar las teclas
F1 ... F12 en el evento OnKeyPress de un formulario. Tengo activada la propiedad KeyPreview y he probado varias cosas: IF Key = #112 then //Si se presione F1 .... IF Key = VK_F1 then .... pero ninguna me funcionó. Sin embargo, las teclas Enter (#13), Escape (#27), las capturo sin ningún tipo de problemas. El código es el siguiente: Código:
Case Key of #13: begin Key := #0; //Focus al siguiente objeto Perform(WM_NEXTDLGCTL, 0, 0); end; #27: begin Key := #0; //Cierra el formulario Close; end; #112: begin Key := #0; //Cambia de página PageControl.TabIndex := 1; end; Un saludo.
__________________
https://www.youtube.com/DexterBass |
|
|
|