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

با سلام
ببخشيد من ميخواستم بپرسم كه تو دلفي چه جوري ميشه متن نوار عنوان رو متحرك كرد؟

سلام
من سورسش رو دارم
اگه هنوز هم ميخواهيش بگو برات بزارم

موفق باشي

سلام آقا
اگه اونو لطف كني به [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] بفرستي ممنون ميشم.

سلام آقا اگه همین جا بزاری تا همه استفاده کنن ممنون میشم

ممنونم از اين سورسي كه گذاشتي

سلام

ببخشيد اينترنت نداشتم

حداكثر تا اخر هفته همينجا ميزارمش

يا حق

آقا تو رو خدا ...........پس چي شد؟ يكي كمكم كنه..

من ان رو بلدم
اما به چه صورتي متحرك بشه.
فقط اينو به من بگيد .
آپلودش كنم براتون.

فعلا اينو گذاشتم اگه پسنديديد و همونه كه مي خواهيد
خوب به سلامتي اما اگه اون نيسيت بهم بگيد يكي ديگه بسازم.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اما يادم رفت بگم اين مال بالاي صفحه است.
كدش هم باشه مي تونيد هر طوري كه دوست داريد
تغييرش بديد.

با سلام
ببينيد...؟ من ميخام مثلا" متن "درس برنامه نويسي" از قسمت چپ 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;

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