متحرك كردن نوار عنوان در دلفي

با سلام
ببينيد...؟ من ميخام مثلا" متن "درس برنامه نويسي" از قسمت چپ Caption فرم به سمت راست حركت كنه...اگه كمكم كنيد ممنون ميشم.

آقا دستت درد نكنه خيلي توپ بود

من خوب متوجه نشدم كه شما مي خواهيد چه كاري
انجام بيديد اما مي تونيد تو اون اديت فارسي تايپ كنيد.
لطفآ سوالتون رو بهتر بپرسيد. :rolleye:

با سلام

اقا من خيلي شرمنده ام كه اينقدر بد قول شدم

اميدوارم بدردتون بخوره



var
a:string;

//*****************************

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
form1.Caption := a;
for i := 1 to (Length(a) - 1) do
a[i] := form1.caption[i + 1];
a[Length(a)] := form1.caption[1];
end;

//*************************************
procedure TForm1.FormCreate(Sender: TObject);
begin
a:='Its My Caption';
end;

سلام اچ پي
من اينو به نوع ديگه گذاشته بودم ببين بدرد مي خوره؟