aloah
ich hab mal ne kurze frage
undzwar würde ich gerne auf einem image einen text von links nach rechts durchlaufen lassen
wenn er rechts angekommen ist soll er wieder von links ankommen
dazu hab ich jetzt folgenden code
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if i=300 then
i:=1;
for i:=1 to 300 do begin
Application.ProcessMessages;
Image1.Canvas.TextOut(i, 20, 'hallo');
sleep(10);
end;
end;
aber irgendwie bleib der text dann einfach bei 300 stehen
