Teclas de Función

[Cecilio]

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]

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]

¡¡ Genial !! Muchas Gracias.

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

 if ((ssCtrl in Shift) and ((chr(key)='A') or (chr(key)='a'))) OR (Key=VK_F10) then
   btBuscaArtic.Click;
end;

Gracias de nuevo.