|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Fullscreen SlideShow Bilder animieren
23. Nov 2006, 20:11
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
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|