Tastendruck abfrage

[DeddyH]

Noch eine Möglichkeit: einen Typen definieren und bei Tastendruck setzen.

Delphi-Quellcode:

type TTaste = (ttNone,ttLeft,ttRight,ttDown,ttTurn);

...
//privates Feld vom Typ TTaste im Form definieren und mit ttNone initialisieren
...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((spielaktiv > 0) or (not(spielaktiv > 0) and (key <> 27))) then exit;
      case key of
       {Escape} VK_ESCAPE: close;
       {left}   VK_LEFT : FTaste := ttLeft;
       {up}     VK_UP : FTaste := ttTurn;
       {right}  VK_RIGHT : FTaste := ttRight;
       {bottom} VK_DOWN : FTaste := ttDown;
               end;
end;

Im Timer-Event wertest Du nun FTaste aus und bewegst den Stein entsprechend. Anschließend FTaste wieder auf ttNone setzen.