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

[r_farhadian]

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

[hp1361]

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

موفق باشي

[r_farhadian]

سلام آقا
اگه اونو لطف كني به R_Farhadian@Yahoo.com بفرستي ممنون ميشم.

[WolF]

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

[fateme]

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

[hp1361]

سلام

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

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

يا حق

[r_farhadian]

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

[soldier]

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

[soldier]

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

http://dezfoul.net/~william/Caption%20Motion.rar

[soldier]

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

[r_farhadian]

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

[abbas_beravo]

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

[soldier]

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

[hp1361]

با سلام

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

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



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;

[soldier]

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