Image bewegen

[_frank_]

Zitat von Neutral General:

100 dürfte zu lang sein
400*100 = 40000 = 40 Sekunden für 400 Pixel

ist schon richtig, aber war ja nur ein Beispiel
Der Hauptgedanke meines Wertes war, dass er seine Bewegung auch sieht, wie lange das dauert, muss er halt variieren
ich würde auch kein Image auf dem Form hin und her schieben, aber das ist ne andere Sache.
Für Bewegungen gibts offscreen-Bitmaps, die auf ein Canvas geblittet werden oder bei umfangreicheren Geschichten Hardware-gestützte Rendering-Methoden (DirectX, OpenGL).
alternativ lässt sich das ganze auch mit einem TTimer machen, dann kann man sich das ProcessMessages auch sparen.

mal fix ausm Hut zusammengetippelt

Delphi-Quellcode:

procedure TMyForm.Timer1Timer(...);
begin
  if image.left>=400 then
    timer1.enabled:=false
  else
  begin
    image1.Left:=image1.left+1;
  end;
end;

Gruß Frank