Titel فرم وكپشن فرم حركت ميكند

 

 

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;

 

 

موضوع :