Tastaturabfrage

Thema durchsuchen

Ansicht

Themen-Optionen

Offene Frage von "PetBurki"

Ein Thema von PetBurki · begonnen am 6. Jun 2007 · letzter Beitrag vom 9. Jun 2007

Antwort

Seite 3 von 3

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge

Delphi 12 Athens

#21

Re: Tastaturabfrage

9. Jun 2007, 14:07

Nimm doch gleich case.

markieren

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;

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen