Uso de las Teclas de Funciones

[hondaalberto]

Buenas Tardes Amigos Necesito que al presionar una de las Teclas de Funciones se ejecute un bloque de código que yo especifique para borrar una línea en un DBGRID.

En el Evento OnKeyPress del Formulario tengo el Siguiente Código para validar si se presionó la tecla F4, pero no Hace nada, me gustaría Saber si es que me Falta algo por colocar en el Código.

Código Delphi [-]
If (Key=Char(VK_F4)) Then
 Begin
   DsLinVentasTemp.DataSet.Delete;
End;

Muchas Gracias por Anticipado...

[ecfisa]

Hola hondaalberto.

Tenes que usar el evento OnKeyDown, ejemplo:

Código Delphi [-]
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  if Key = VK_F4 then
    ShowMessage('Tecla F4 presionada');
end;

Saludos.

[hondaalberto]

Muchas Gracias ecfisa Funciona perfectamente...