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?