label في الدلفي

If label1.left > 0-label1.Width then

label1.left:=label1.left-1

else

label1.left:=label1.left+Width

هذا الكود ولكن هناك ملاحظة عند هته الحركة أختي الكريمه يجب أن تكون HorzScrollBar.visible:=FALSE علشان متظرش إنه بتبدأ من بعد ال width

تحياتي

أحمد صقر

نفس كود @hmed

.. بعدما كتبت الكود .. محيته لأنه نفسه ... ;) ;)

:D هذا نص الكود و معه النص التنفيذي في الملف المرفق.

عند تحريك لابيل من اليمين لليسار فيجب أن ننتظر أن تختفي كلها,يعني نهتم بعرضها’ في هذه اللحظة سيكون left له القيمة السالبة لقيمة عرض Label1: أي label1.left = -label1.Width.

سنقوم بعدها بتحويل موقع Label1 إلى الحافة اليمنى للفورم كي نحاكي أنها اختفت من اليسار و ظهرت من اليمين. يعني ـن قيمة Left ستكون لها علاقة مع عرض الفورم وهو form1.ClientWith.

كما قال الأخ أحمد صقر للجمالية فقط يجب عدم تشغيل خاصية HorzScrollBar.Visible وإعطاءها قيمة false.

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  direct: boolean = true; // true = left false = right

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.Color:= clBlue;
  //form1.AutoScroll:= false;
  form1.HorzScrollBar.Visible:= false;
  timer1.Enabled:= true;
  Button1.Caption:= 'left to right';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with label1 do
  if direct then
   begin
     Left:= Left + 1;
     if left > form1.ClientWidth then left:= -label1.Width;
   end
  else
   begin
     Left:= Left - 1;
     if left < -label1.Width then left:=form1.ClientWidth;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
direct:= not direct;
if direct then
  Button1.Caption:= 'left to right'
else
  Button1.Caption:= 'right to left';
end;

end.

:lol:

labelmove.rar

تحياتي

أخي مراد جوابك كما يقال كافي وافي شافي عافي

تحياتي لك ولشعب المغرب ومبروك عليكم إلغاء الVISA للجزائر

في سبيل وحدة مغاربية و ممكن إفريقية إن لم تكن عربية

شكرا جزيلا و بارك الله فيكم ولقد تنفد لى الكود

أحمد صقر: الله يحفظك يا أخي, وتحياتي لكل عربي و لك مسلم يحلم بتوحيد الحدود كلها و إلغائها تماما مع الحفاض على الهويات الجغرافية لكل إقليم مادامت لا ترفع "لراية جاهلية" (كما في حديث لرسول الله صلى الله عليه وسلم). لقد سبقتني بالجواب يا أحمد :lol: بارك الله فيك.

الله يعطيكم الف الف عافية

مجهودات رائعة

ياسلام عليكم خلينا نصير مثال للتعاون

ومانخلي اي احد من الزملاء اذا واجه مشكلة ياتي الى هذا الموقع وهو مطمئن كل الاطمئنان انه سوف يعود مع الحل

مرة ثانية يسلمو

السلام عليكم

الحقيقة ما شاء الله عليكم جميعا :lol: كفيت ووفيت هذا والله مثال كبير على التعاون وعلى حب الاخرين وبدل الجهد من اجل كل فرد يدخل الي هذا المنتدى وبصراحة اقول هذا المنتدى من احسن المنتديات وافضلها بالنسبة الي وارجو ان يستمر على ذلك وعلى ان نصل بهذا المنتدي الي مستويات كبيرة ومتقدمة إن شاء الله في عالم البرمجة وبالخصوص في لغة الدلفي