Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   capturar hotkey (https://www.clubdelphi.com/foros/showthread.php?t=18052)

cahosoft 31-01-2005 15:56:52

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...

marto 31-01-2005 16:05:10

Wop!

Busca en la ayuda Virtual Key ;)

Ricardojosep 31-01-2005 17:17:04

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 franja horaria es GMT +2. Ahora son las 08:48:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi