Funktions knapper (F1 - F12)

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
  112: begin end; {F1}
  113:            {F2}
  114:            {F3}
  ...
  123: begin end; {F12}
  end;
end;

Du kan naturligvis også bruge shift til at undersøge om der samtidig trykkes på shift, ctrl eller alt.

Du kan også bruge de definerede betegnelser f.eks

  if key=vk_F1 then showmessage('Du trykkede på F1');

HUSK !!!!!! At sætte Keypreview til true !

Jens B