delphi4arab منتديات دلفي للعرب

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

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

تفضل اخى

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

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

إليك حلين مختلفين :
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;

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

ممكن تجرب هذا

كود :
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;

DelphiUser22

saiedcracker

DelphiUser22

أبو معاذ

saiedcracker