Hallo,
zum Anfang war dein Auto gar nicht zu beherrschen. Entweder lenkte es gar nicht oder es fuhr immer von einer Seite zur anderen. Der Timer für Links und für Rechts sind ja fast immer zusammen an. Ich habe noch folgenden Code hinzugefügt:
Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Left then
Links.Enabled:= false;
if Key = VK_Right then
Rechts.Enabled:= false;
end;
Danach konnte man das Auto ganz gut lenken. Aber dann war es wohl schon zu einfach, denn dann konnte man immer ganz locker auf dem Mittelstreifen unfallfrei fahren.
Wenn ich dein Programm unter Win98 beendete, kam immer eine Fehlermeldung.(siehe Anhang)
EDIT: mit den ganzen Timern funktioniert das irgendwie nicht richtig. Wenn man lenkt wird das Auto gleich langsamer.
Ich habe die beiden Timer für Links und rechts runter geschmissen und bei FahrtTimer folgendes hinzugefügt:
Delphi-Quellcode:
procedure TForm1.FahrtTimerTimer(Sender: TObject);
begin
if (ASpieler.Left < 128) and (GetAsyncKeyState(VK_RIGHT)< 0) then
ASpieler.Left:= ASpieler.Left + ges;
if (ASpieler.Left > 40) and (GetAsyncKeyState(VK_LEFT)< 0) then
ASpieler.Left:= ASpieler.Left - ges;
// Bewegt die Strasse
Jetzt lief bei mir alles problemlos.