ShortCut ?

[Helmi]

Hallo,

meintest du vielleicht so was mit Case:

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Ord('S'): ShowMessage('S wurde gedrückt');
    Ord('D'): ShowMessage('D wurde gedrückt');
  end;
end;