تحريك صورة على الفورم

لتحريك أي عنصر على الشاشه نستطيع ضبط غحداثياته ببساطه .. مثلا

Image1.Left:=100;

وستصبح الصورة بالإحداثيات 100

..

لكي نحرك الصورة خطوة لليسار بدل من تحديد موقع ثابت نكتب

Image1.Left:=Image1.Left+1;

وبالتلي ستتحرك خطوة لليسار بغض النظر عن موقعها الحالي ..

ولكي نستمر بتحريك الصورة نحتاج لتكرار التعليمه السابقه بشكل مستمر .. لذلك نستخدم ؤقت Timer ووظيفته هو تكرار حدث ما ضمنه حسب توقيت نحدده نحن :

procedure TForm1.Timer1Timer(Sender: TObject);
beginImage1.Left:=Image1.Left+i;
end;

ولكن الصورة ستستمر بالحركه حتى تخرج من النموذج ... ؟؟

ولحل هذه المشكله نقوم بجعل الصورةتعود عند الإصتدام بحافه النموذج .. بالشكل :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Image1.Left>Form1.Width-Image1.Width then
i:=-5;
if Image1.Left<0 then
i:=5;
Image1.Left:=Image1.Left+i;
end;

الملف المرفق يحوي الكود السابق

MovePicture.zip

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

بارك الله فيك اخي عروة ما قصرت

جزاك الله الف خير إن شاء الله

وزادك الله علما على علمك

كل له سعيه والسعي مختلف وكل نفس لها في سعيها شاءُ

لكل داء دواءُ عند عالمه من لم يكن عالما لم يدري ما الداءُ

الحمد لله يقضي ما يشاء ولا يقضى عليه وما للخلق ما شاءوا

يا بعد من مات ممن كان يلطفه قامت قيامته والناس احياءُ

ويمكن ايضا تحريك Label في وقت التشغيل

لذلك نستخدم مؤقت Timer

if Label1.Left<600 then
 begin
Label1.Left:=Label1.Left+1;
end
else
Label1.Left:=-214

:rolleyes: