Suche Hilfe bei Bewegung einer Form

[baumina]

EIDT : hat sich erledigt

[nahpets]

Zitat von abi9:

Bei Snake soll die Schlange doch auch durchgehend in diese Richtung verlaufen

Auch wenn die Taste VK_Down gedrückt wurde?
Auch wenn die Taste VK_Right gedrückt wurde?

Wenn also einmal links gedrückt wurde, läuft die Schlange nach links.
Wird nun rechts gedrückt, läuft die Schlange nach rechts.
Da in der Abfrage geprüft wird, ob links gedrückt wurde, geht's nach links und dann wird nach rechts geprüft und die Schlange geht nach rechts und damit bleibt sie immer wo sie ist. Analog für oben und unten. Und das scheint doch momentan das Problem zu sein?

[baumina]

@nahpets : gugg dir auch die OnKeyUp an, dort wird's wieder auf False gesetzt.

[DeddyH]

Ich habe jetzt nur kurz in 2 der Dateien hineingeschaut. Im Konstruktor fehlt mir jeweils der inherited-Aufruf, Destruktoren fehlen ganz, obwohl hier die privaten Objekte, die im Konstruktor angelegt werden, freigegeben werden sollten. Und wieso sind alle Methoden virtuell, obwohl es keine Ableitungen gibt? Gut, das ist nicht weiter schlimm, aber virtuell nur einfach so sieht auch komisch aus.

[abi9]

Zitat von DeddyH:

Ich habe jetzt nur kurz in 2 der Dateien hineingeschaut. Im Konstruktor fehlt mir jeweils der inherited-Aufruf, Destruktoren fehlen ganz, obwohl hier die privaten Objekte, die im Konstruktor angelegt werden, freigegeben werden sollten. Und wieso sind alle Methoden virtuell, obwohl es keine Ableitungen gibt? Gut, das ist nicht weiter schlimm, aber virtuell nur einfach so sieht auch komisch aus.

Das heißt jetzt??
Sorry, aber bin noch ein Anfänger²

[nahpets]

Zitat von baumina:

@nahpets : gugg dir auch die OnKeyUp an, dort wird's wieder auf False gesetzt.

Schön, stimmt, hab' ich nicht gesehen

D. H.: Wenn nicht während des Timerereignisses eine Taste gedrückt ist, kann auch keine Bewegung erfolgen.

Wenn ich jetzt wieder daneben liege, liegt's am Wetter, das heute meine Denkfähigkeit noch weiter einschränkt, als im Normalzustand

Eigentlich dachte ich, dass die Schlange solange in eine Richtung läuft, bis man diese per Tastatur ändert. Hier läuft sie aber nur solange in eine Richtung, wie eine Taste gedrückt gehalten wird und in diesen Zeitraum ein Timerereignis fällt. Ist das so gewünscht?

[abi9]

Zitat von nahpets:

Zitat von baumina:

@nahpets : gugg dir auch die OnKeyUp an, dort wird's wieder auf False gesetzt.

Schön, stimmt, hab' ich nicht gesehen

D. H.: Wenn nicht während des Timerereignisses eine Taste gedrückt ist, kann auch keine Bewegung erfolgen.

Wenn ich jetzt wieder daneben liege, liegt's am Wetter, das heute meine Denkfähigkeit noch weiter einschränkt, als im Normalzustand

Eigentlich dachte ich, dass die Schlange solange in eine Richtung läuft, bis man diese per Tastatur ändert. Hier läuft sie aber nur solange in eine Richtung, wie eine Taste gedrückt gehalten wird und in diesen Zeitraum ein Timerereignis fällt. Ist das so gewünscht?

ne eigentlich nicht, sie sollte schon durchlaufen, bis sie in eine andere richtung gelenkt wird.

[nahpets]

Zitat von abi9:

ne eigentlich nicht, sie sollte schon durchlaufen, bis sie in eine andere richtung gelenkt wird.

Tun sie bei der von Dir implementierten Logik aber nicht.
Kommentiere bitte mal Dein onKeyUP aus und ändere das onKeyDown nach meinem Vorschlag und dann schau mal, ob sich was ändert. Wenn nicht, gebe ich mich geschlagen.

[abi9]

Zitat von nahpets:

Zitat von abi9:

ne eigentlich nicht, sie sollte schon durchlaufen, bis sie in eine andere richtung gelenkt wird.

Tun sie bei der von Dir implementierten Logik aber nicht.
Kommentiere bitte mal Dein onKeyUP aus und ändere das onKeyDown nach meinem Vorschlag und dann schau mal, ob sich was ändert. Wenn nicht, gebe ich mich geschlagen.

wie jetzt? ich kann den kopf doch nicht einmal bewegen..

[Ginko]

in mTKopf steht folgendes:

Delphi-Quellcode:

procedure TKopf.bewege_links;
begin
  zXPosition := zXPosition - zXGeschwindigkeit;
end;

was heißt hier werden nur die Koordinaten geändert, es muss aber wieder neu gezeichnet werden.

Es sollte doch dann eigentlich so in der Art gehen:

Delphi-Quellcode:

 IF (Links = True) and (Kopf.GetZXPosition > 0) Then    
     begin
       Kopf.bewege_links();
       //hier noch mal altes Image löschen ?
       Kopf.zeichne();   
     end;