Fullscreen SlideShow Bilder animieren

[Neutral General]

Zitat von Andreas L.:

Mit einen Timer alle paar Millisekunden das Bild nach links und unten verschieben. DoubleBuffered vom Form auf TRUE stellen!!!

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(img.left);
 inc(img.top);
end;

Den optimalen Intervall für den Timer musst du durch testen selbst rausfinden.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 img.Left := img.Left + 1;
 img.Top := img.Top + 1;
end;

Inc funktioniert da nicht

Gruß
Neutral General