on keypress

[ph0]

hallo, ich habe das ncoh nicht so ganz verstanden...
was muss ich tun, dass xy ausgeführt wird wenn man in form1 zb F1 drückt?
gruß

[DeddyH]

Ggf. Keypreview auf true und auf KeyDown reagieren.

[ph0]

und wie muss ich das schreiben:
if F1 then xx
if F2 then xy
if F3 then yy

kapier nich wie ich das in die prozedur eingebe...

[s-off]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = VK_F1 then
      ShowMessage('F1 wurde gedrückt')
   else if Key = VK_F2 then
      ShowMessage('F2 wurde gedrückt');
end;

Edit: VK_Fx ist der virtuelle Tastencode. Mehr dazu in der Delphi Hilfe.

[DeddyH]

Wenn Du auf verschiedene Tasten reagieren willst, solltest Du case verwenden.

[dajuhsa]

also:

Delphi-Quellcode:

case key of
  VK_F1: {f1 gedrückt};
  VK_F2: {f2};
  VK_F3: {f3}
//...
end;