also ich hab KeyPreview (meintest du das, hab KeyPress nicht gefunden) auf true gesetzt, und in Ereignissbehandlungsroutine folgendes zu stehen
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=CHR(VK_UP) then
auto1.schneller(1.5);
if Key=CHR(VK_DOWN) then
auto1.bremsen(2);
end;
alles wunderbar, doch reagiert nix, das object(auto1) sollte sich demnach nach rechts bewegen, oder nach links, je nachdem!
hier die timer-proz + anzeigen-proz.
Delphi-Quellcode:
procedure anzeigen(auto:TAuto);
begin
auto.zeichnen(Form1.Image1.Canvas);
auto.x:=auto.x+Trunc(auto.v);
auto.zeichnen(Form1.Image1.Canvas);
end;
procedure TForm1.TimerTimer(Sender: TObject);
begin
anzeigen(auto1);
end;
is irgendwas nicht korrekt??
kann aber nicht sein, das der timer die ganze sache irgendwie "unterbricht" (solange er lauft) oder?