كيف أكتب عبارة متحركة ؟

[DelphiUser22]

السلام عليكم ورحمة الله وبركاته

أود ان أعرف طريقة كتابة جملة وجعلها تتحرك كشريط الموجود في المنتدى كتبت طريقة لكنها كانت تذهب الي جهة اليمين فقط أود أن أعرف الكود الذي يجعلها لا تتوقف . لأنني أعمل برنامج تسيير دفتر عقاري و أود أن أكتب جملة برنامج تسيير دفتر عقاري في الأعلى .
من فضلكم أفيدوني جزاكم اله كل خير .

[saiedcracker]

تفضل اخى

كود :

txt : string; begin txt:= Label1.Caption; Label1.Caption:= Copy(txt, 2, length(txt)-1) + Copy(txt,1,1) ; end;

[DelphiUser22]

شكرااا لكن العبارة مكتوبة بالعربي ولما تتحرك تصبح مقلوبة تختلط الحروف ببعضها ممكن طريقة أخرى بارك الله فيك أخي أختك مريم .

[أبو معاذ]

إليك حلين مختلفين :
1- بالبرمجة العادية :
باستعمال المكون Timer :

كود :

procedure TForm1.Timer1Timer(Sender: TObject); Const Saut=1; begin Label1.Caption:=Copy(Label1.Caption,Saut+1,Length(Label1.Caption)-Saut) +Copy(Label1.Caption,1,Saut) ; end;

المثال في المرفق.
بالتوفيق إن شاء الله.

[saiedcracker]

ممكن تجرب هذا

كود :

var txt1 ,Txt2 : string; begin // txt1:= Label1.Caption; // Label1.Caption:= Copy(txt1, 2, length(txt1)-1) + Copy(txt1,1,1) ; txt2:= Label2.Caption; Label2.Caption:= Copy(txt2, 2, length(txt2)-1) + Copy(txt2,1,1) ; Label1.Left := Label1.left + 10; If Label1.Left > 260 Then Label1.left := -210; end;