Bild in einem Fenster von links nach rechts bewegen

[glkgereon]

und das begin und end zwischen repeat und until is unnötig :wink:

Delphi-Quellcode:

var i:integer;
begin
  i:=image1.left;
  repeat
    i:=i+1;
    image1.left:=i
  until i=300;
end;

so wäre es schon besser

[himitsu]

Na dann werf ich auch mal was rein ... das könnte große Vorteile haben, vorallem wenn man sehen will, wie das Bild wandert :zwinker:

Delphi-Quellcode:

Application.ProcessMessages;

[Stanlay Hanks]

Oder einfach ein simples "Sleep(100);" reinpacken :)

[himitsu]

Stan,
du proggst doch schon lang genug, oder?

Delphi-Quellcode:

  // nur Sleep
  For i := 0 to Form1.ClientWidth - Shape1.Width do Begin
    Shape1.Left := i;
    Sleep(20);
  End;

  // Sleep + ProcessMessages
  For i := 0 to Form1.ClientWidth - Shape1.Width do Begin
    Shape1.Left := i;
    Sleep(20);
    Application.ProcessMessages;
  End;

@nailor:
ich hatte einfach nur 'ne Zahl dort eingegeben ... bei mir ist sleep(10) das Kleinste, egal was ich eingeb, außerdem ging es mir auch um was anderes. :zwinker:

[nailor]

wobei sleep(2) auch nicht das sinvollste ist...

[fkerber]

Hi!

Statt Sleep + Application.Processmessages wäre das hier wohl ressourcenschonender:
http://www.delphipraxis.net/internal...ect.php?t=7355


Ciao Frederic

[morphi]

Danke erstmal für die vielen antworten!
Leider kann ich mein beitrag jetzt nich mehr bearbeiten weil die zeit dazu abgelaufen ist...
ich programiere noch net lang und nehm wohl dann die Lösung mit dem Teimer...

Ps:nächstes mal werd ich mich geschickter beim forum schreiben anstellen
MFG
morph