Problemas con accesos directos por combinación de teclas

[BioStudio]

Resulta que necesitaría aplicar el siguiente código:

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

Al iniciar el programa para chequear una variable en particular, probé de utilizarlo pero al iniciar no pasa nada.. probé con otras teclas y combinaciones al iniciar el formulario y nada.. ¿ algún dato en particular que requiera esta función?

[[nlsgarcia]]

BioStudio,

Empezado por BioStudio

¿algún dato en particular que requiera esta función?

Revisa este código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   // Specifies whether the form should receive keyboard events before the active control.
   // If KeyPreview is true, keyboard events occur on the form before they occur on the active control.
   KeyPreview := True;
end;

El código anterior habilitara la lectura de teclas en el formulario.

Espero sea útil

Nelson.

[BioStudio]

Exacto! faltaba justamente eso! gracias!