Die Schlange besteht aus Punkten? Weiß nicht was du mit Körpern meinst.
Was ist denn daran falsch, so funzt es doch wenigsten?
Dein Forschlag geht auch nicht, FormKeyDown ist undefiniert. Wo muss ich das definieren?
Habe nun folgendes:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_Left : BLeftClick(Sender);
VK_Right : BRightClick(Sender);
VK_Up : BUpClick(Sender);
VK_Down : BDownClick(Sender);
VK_Escape : Close;
end;
end;
Danke für deine Hilfe..