+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أكتب عبارة متحركة ؟ (/showthread.php?tid=2939)
كيف أكتب عبارة متحركة ؟ - DelphiUser22 - 26-03-2011
السلام عليكم ورحمة الله وبركاته
أود ان أعرف طريقة كتابة جملة وجعلها تتحرك كشريط الموجود في المنتدى كتبت طريقة لكنها كانت تذهب الي جهة اليمين فقط أود أن أعرف الكود الذي يجعلها لا تتوقف . لأنني أعمل برنامج تسيير دفتر عقاري و أود أن أكتب جملة برنامج تسيير دفتر عقاري في الأعلى .
من فضلكم أفيدوني جزاكم اله كل خير .
كيف أكتب عبارة متحركة ؟ - saiedcracker - 26-03-2011
تفضل اخى
كود :
txt : string;
begin
txt:= Label1.Caption;
Label1.Caption:= Copy(txt, 2, length(txt)-1) + Copy(txt,1,1) ;
end;كيف أكتب عبارة متحركة ؟ - DelphiUser22 - 26-03-2011
شكرااا لكن العبارة مكتوبة بالعربي ولما تتحرك تصبح مقلوبة تختلط الحروف ببعضها ممكن طريقة أخرى بارك الله فيك أخي أختك مريم .
كيف أكتب عبارة متحركة ؟ - أبو معاذ - 26-03-2011
إليك حلين مختلفين :
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 - 26-03-2011
ممكن تجرب هذا
كود :
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;