Tastendruck abfrage

[Klaus01]

..nun , dann mußt Du aber Glück haben wenn Du den TimerZyklus erwischt.
Das Tastendruck Event wird immer dann ausgelöst wenn eine Taste gedrückt wird.
Unabhängig ob ein Timer aktiv ist oder nicht.

Du kannst ja hier:

Delphi-Quellcode:

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 : ; 
       {up}     VK_UP : ; 
       {right}  VK_RIGHT : ; 
       {bottom} VK_DOWN : ; 
               end; 
end;

bestimmte Marker setzen die im TimerZyklus abgefragt werden.
Sozusage ein TempSpeicher für Tastendrücke.

Grüße
Klaus