hi ich muss auch snake in der schule programmieren. mit dem wachsen komm ich auch nich weiter aber ich kann dir zeigen wie man die keys richtig programmiert.
Delphi-Quellcode:
procedure TSpielfeld.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
37: begin
snake.vx:=-1;
snake.vy:=0;
end;
38: begin
snake.vx:=0;
snake.vy:=-1;
end;
39: begin
snake.vx:=1;
snake.vy:=0;
end;
40: begin
snake.vx:=0;
snake.vy:=1;
end;
end;
end;
ich werd jedoch weiter dran arbeiten also werd ich eventuell was posten wenn ich es geschafft habe die schlange wachsen zu lassen
gruß terry
[edit=alcaeus]Delphi-Tags gesetzt. Siehe obigen Kommentar von Meflin 
Mfg, alcaeus[/edit]