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

[r_farhadian]

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

[abbas_beravo]

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

[soldier]

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

[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]

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