...make a form's caption scrolling ?

Author: Agus Made
Homepage: http://delphi.iseng.8m.com

Category: Forms

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 := 1 to (Length(a) - 1) do
    
a[i] := Application.Title[i + 1];
  a[Length(a)] := Application.Title[1];
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base