also wenn ich den quellcode eingebe dann geht alles, d.h. die schlange flitzt über die paintbox nur kann ich die richtungsänderung nicht eingeben.
Die "If"-Abfrage vor dem Setzen der neuen Richtung ist dazu da um einen direkten Richtungswechsel zu verhindern. So ist es bspw. nicht Möglich während man nach unten läuft die Richtung nach oben zu ändern. "Button3" bekommt die Caption "links" und folgenden Code:
Quellcode: markieren
Delphi-Quellcode:
...
procedure TForm1.Button3Click(Sender: TObject);
begin
if richtung.X=0 then
richtung := Point(-1, 0);
end;
...
Wenn ich da auf den Button3 klicke um den Quelltext einzutragen dann kommt ne meldung:
"cannot find implementation of method3click
Da weiß ich nimmer weiter.
Nur zur Info falls einer ne Lösung weiß
ich bin n totaler Noob und hab nur alles genau abgeschrieben wie es im tutorial stand
bitte schreibts einfach *g*
danke
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]