حرك عنوان برنامجك بشكل دائري

سلام

أولا عرف المتغير الخارجي

cap:string;

ثم ضع Timer على الفورم

في الحدث FormCreate خصص للجملة Cap قيمتها

مثلا

[l]

procedure TForm1.FormCreate(Sender: TObject);

begin

 cap:=' ArabTeam2000   ';

end;

[/l]

داخل Timer ضع التالي

[l]

procedure TForm1.Timer1Timer(Sender: TObject);

var i:integer;

begin

 application.title:=cap;

 form1.Caption:=cap;

  for i:=1 to (length(cap)-1) do

    cap := application.title[i+1];

  cap[length(cap)] := application.title[1];



end;

[/l]

البرنامج

[l]

var

  Form1: TForm1;

  cap:string;

implementation



{$R *.DFM}





procedure TForm1.FormCreate(Sender: TObject);

begin

 cap:=' ArabTeam2000   ';

end;



procedure TForm1.Timer1Timer(Sender: TObject);

var i:integer;

begin

 application.title:=cap;

 form1.Caption:=cap;

  for i:=1 to (length(cap)-1) do

    cap := application.title[i+1];

  cap[length(cap)] := application.title[1];

end;

[/l]

أنقص Timer لزيادة سرعة الحركة ,

وشكرا

مــــMADIــــدي