Ich hab es jetzt noch verfeinert, sodass man auch geringere Beschleunigungen einstellen Kann.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=s+ds;
image1.Left:=image1.Left+trunc(s);
rest:=rest+s-trunc(s);
image1.Left:=image1.Left+trunc(rest);
rest:=rest-trunc(rest);
end;
Doch mein Problem bleibt bestehen. Es ist immer noch keine sanfte Bewegung. Das Bild flackert ein wenig (obwohl DoubelBuffered:=true).
Nach dem Code zu folge müsste es elegant gleiten!
Liegt es daran, dass ich eine Komponente verschiebe?
Wenn ja - wie kann ich dann sonst ein Bild beschleunigen?
Und wie kann ich ohne Timer auskommen?