Foros Club Delphi - Teclas de Función

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Teclas de Función (https://www.clubdelphi.com/foros/showthread.php?t=47704)

Cecilio

05-09-2007 14:22:14

Teclas de Función

Hola.

Estoy probando el método onKeypress de un Edit veo las teclas que se pulsan, pero no puedo ver cuando se pulsa F10. Al pulsarlo, se va al menú.

He puesto KeyPreview:=true al crear el form.

¿ como puedo interceptar estas teclas de función en un Edit ?

paldave

05-09-2007 14:39:13

Debes poner KeyPreview=True para tu formulario y en el evento OnKeyDown del formulario comprobar si la tecla pulsada fué F10:

Código Delphi [-]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F10 then ....
end;

Espero quede resuelto tu problema.

Cecilio

05-09-2007 15:02:07

¡¡ Genial !! Muchas Gracias.

Además le he puesto Ctr+ A mirando y probando. Y ha quedado así. (por si alguien le sirve:

Código:

 if ((ssCtrl in Shift) and ((chr(key)='A') or (chr(key)='a'))) OR (Key=VK_F10) then

   btBuscaArtic.Click;

end;

Gracias de nuevo.

La franja horaria es GMT +2. Ahora son las 01:01:06.