Wie sehen denn die verwendeten Klassen (THintergund etc.) aus? Und gewöhn Dir lieber gar nicht erst an, mit true oder false zu vergleichen, das kann zu falschen Ergebnissen führen.
Die OnKeyDown-Methode würde ich etwas anders schreiben:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_LEFT:
Links := True;
VK_Right:
Rechts := True;
VK_Up:
Hoch := True;
VK_Down
Runter := True;
end;
end;
Hat immer noch nicht geklappt
(
Aber so wie es aussieht ist das doch nur eine Vereinfachung von dem, was ich geschrieben habe..