ProcessKey, aber woher?

[whiteshark]

Moin Leute,

ich habe bei www.delphigl.com unter "Tutorials" --> "Mathematisches" --> "Objekt gedreht aber dennoch nach vorne bewegt" --> Topic: Die Tastenbelegung geschaut!
Nun ist meine Frage, woher nimmt der Programmierung die Deklarierung des Namens "KEYS" (in: if Keys [ord('W')] )!!! :?:

Kann mir jemand helfen?

[whiteshark]

Diesen Quelltext mein ich:

// Überprüfen, ob W gedrückt wurde (Drehung um X-Achse)
if Keys[ord('W')] then
begin
//--- Die Rotation um die X-Achse erhöhen. ---------------------------------
RotateX := RotateX + 0.8;
//--- Sollte RotateX größer als 360 Grad sein, es auf 0 setzen. Dadurch
// wird der Drehungs-Bereich auf 0 - 360 Grad begrenzt.
if RotateX > 360 then RotateX := 0;
end;

// Überprüfen, ob W gedrückt wurde (Drehung um X-Achse)
if Keys[ord('S')] then
begin
//--- Die Rotation um die X-Achse erniedrigen. -----------------------------
RotateX := RotateX - 0.8;
//--- Sollte RotateX kleiner als 0 Grad sein, es auf 360 setzen. Dadurch
// wird der Drehungs-Bereich auf 0 - 360 Grad begrenzt.
if RotateX <= 0 then RotateX := 360;
end;

Quelle des Quelltextes: www.delphigl.com

[Luckie]

Vergleich mal den Code mit der Berschriftung von bestimmten Tasten auf deiner Tastatur. ;)

[whiteshark]

Ja schon klar!!!!

Aber beim compilieren kommt der Fehler, dass er "Keys" nicht kennt!!! Das ist mein Problem!

PS: mir ist schon klar, dass "W" auch mit der Taste auf der "w" steht aufgerufen wird!!

[Luckie]

Code:

procedure TForm1.FormKeyPress(Sender: TObject; var [b]Key[/b]: Char);
begin

end;

procedure TForm1.FormKeyDown(Sender: TObject; var [b]Key[/b]: Word;
  Shift: TShiftState);
begin

end;

Bei dir heißt es aber Keys. Ich nehme mal an, das wird irgendwo eine deklarierte Varieable sein.