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.


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:

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 (http://www.clubdelphi.com/foros/member.php?u=7718) Funciona perfectamente...