FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
capturar hotkey
hola...todos como estan....
espero que me puedan ayudar.. deseo que una forma se pueda cerrar cuado el usuario presione una tecla en especial.... en este caso "escape (Esc)"... 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'); end; en esto es con shift y control...necesito escape... |
#2
|
||||
|
||||
Wop!
Busca en la ayuda Virtual Key
__________________
E pur si muove |
#3
|
|||
|
|||
Hola, te sugiero que veas bien que es lo que vas a utilizar ya que si pones Ctrl + Esc, Windows capta primero esas teclas, que son para abrir el Inicio, aqui te mando como es pero utilizando Shift, ya que Alt + Esc, es minimizar la ventana.
if (ssShift in Shift) and (Char(Key) = #27) then ShowMessage('Shift + Esc');
__________________
La amistad es la union de dos almas para formar una sola. |
|
|
|