Snake für die Schule programmieren,Pause;Highscoures einbaun

[Mavarik]

Zitat von MarkusUhl:

Sry habe doch keine Ahnung... Nur warum geht das mit den Pfeiltasten immer noch nict

Warum ist Deine Richtung ein TPoint.... Egal...

Do hast ja noch nicht alle Richtungen umgesetzt..

Wie wäre es mit :

Delphi-Quellcode:

procedure TMainform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_Left  : Globalrichtung := links;
    VK_Right : Globalrichtung := rechts;
    VK_Up    : Globalrichtung := hoch;
    VK_Down  : Globalrichtung := runter;
    VK_Escape : Close;
  end; // of Key
end;

Oder besser in Deinen Fall:

Delphi-Quellcode:

procedure TMainform.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; // of Key
end;

Frank

PS.: Hat die Schlange keinen Körper?

PPS.:Warum prüfst Du immer auf Richtung.X=0 ab?