2 Images gleichzeitig verschieben?

[Markus K.]

In den Klammern gibst du an was geschehen soll, wenn du zwei Tasten auf einmal drückst. Und bei then fügst du dann die Prozeduren hinzu welche ausgeführt werden sollen.

Delphi-Quellcode:

if ((getkeystate(VK_LEFT)and 128)=128) and
   ((getkeystate(VK_DOWN)and 128)=128)
then begin
     MoveFighter (imgFighter1, LeftMove , NoJump );
     MoveFighter (imgFighter2, LeftMove , NoJump );
     end;

Den Teil brauchst du aber auch, da der obrige Code nur ausgeführt wird wenn du zwei Tasten auf einmal drückst.

Delphi-Quellcode:

if Key=VK_LEFT then MoveFighter (imgFighter1, LeftMove , NoJump );
if Key=VK_RIGHT then MoveFighter(imgFighter1, RightMove, NoJump );
if Key=VK_UP then MoveFighter   (imgFighter1, NoMove   , Jumphigh );
if Key=VK_DOWN then MoveFighter (imgFighter2, LeftMove , NoJump );

So hatte ich damals das selbe Problem gelöst, weiß allerdings nicht ob es dafür noch andere Möglichkeiten gibt.

Tschüß Markus