Delphi-PRAXiS - Delphi Tastatur problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Tastatur problem (https://www.delphipraxis.net/122024-tastatur-problem.html)

Tastatur problem

Moin,

hab mal wieder n Problem bei meinem Pong spiel :?

undzwar soll der Ball nachdem er ins ausgegangen ist von dem gegnerischen Spieler weggeschossen werden
und dafür wollte ich für jeden Spieler eine Taste zum egschiesssen programmieren
bei mir sieht es so aus

Delphi-Quellcode:

			  procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

  begin

//Ball wegschießen blauer Spieler  ; mit q

  if   (shape1.top=492)

  and (shape1.left=251)

  and (dx=0)

  and (dy=0)

  and (Key=d)

   then

   begin dy:=1;

         dx:=1;

         end;

  //Ball wegschießen roter Spieler ; mit l

  if (shape1.top=89)

  and (shape1.left=251)

  and (dx=0)

  and (dy=0)

  and (Key=l)

   then

   begin dy:=-1;

         dx:=-1;

      end;

      end;

aber das funtkioniert nicht ganz

vielleicht weiß ja wer Rat :)

Re: Tastatur problem

WAS funktioniert nicht?

Re: Tastatur problem

achso sry^^...
die Tasten gehen halt nicht , ich weiß nich wie ich das mit den Tasen codes da mach und so.
also dieser vk_left und sowas :?

Re: Tastatur problem

Laut Code hast du dich für die Tasten l und d entschieden.
Was willst du denn nun mit vk_Left? Dafür verwendet man auch OnKeyDown() / OnKeyUp().
Ein wenig mehr Erklärung in halbwegs verständlichen Sätzen wäre schon angebracht.

Re: Tastatur problem

Sorry wenn ich die Frage etwas undeutlich gestellt habe habe mein Problem jetzt aber selber schon gelöst bekommen ! :mrgreen:
danke trotzdem :)