Tastaturabfrage

[DeddyH]

Nimm doch gleich case.

Delphi-Quellcode:

procedure TFrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Ord('W'): ShowMessage('W');
    Ord('A'): ShowMessage('A');
    Ord('S'): ShowMessage('S');
    Ord('D'): ShowMessage('D');
  end;
end;