Mega Code Archive

 

Categories / Delphi / Forms

 

How to make a forms caption scrolling

Title: How to make a forms caption scrolling var a:string; procedure TForm1.FormCreate(Sender:TObject); begin a:='Look at here!...'; end; procedure TForm1.Timer1Timer(Sender:TObject); var i:Integer; begin Application.Title:=a; Form1.Caption:=a; for i:=1to(Length(a)-1)do a[i]:=Application.Title[i+1]; a[Length(a)]:=Application.Title[1]; end;