+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اقوم تغيير صورة Image مع ضغطة زر في XE3 ؟ (/showthread.php?tid=4842)
كيف اقوم تغيير صورة Image مع ضغطة زر في XE3 ؟ - ALmuhhnad - 04-01-2013
السلام عليكم ورحمة الله وبركاتة
لدي هذا الكود في الحدث OnMouseDown في مكون Image ووضعت فيه هذا الكود
كود :
procedure TMain.imgFogeMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
imgFoge.Picture.LoadFromFile('Picture\ModePunka.jpg');
end;تظهر لي رسالة انه لم يتعرف على هذا الملف او لم يجده
علماً اني جربت نفس الكود في Delphi 7 وهو يعمل بشكل سليم .. لذلك اضن الطريقة تختلف قليلاً في XE3 كما شاهدت في بعض الاكود
وعندما استعملن ملف السماعدة الموجود في XE3 اشاار إلي بهذا الكود
كود :
OpenPictureDialog1.Execute();
imgFoge.Picture.LoadFromFile(String(OpenPictureDialog1.FileName));فعلا الكود يعمل ... لكن كودي لا يعمل فأين المشكلة في الكود الخاص بي ؟
وشكراً لحسن القرائة
كيف اقوم تغيير صورة Image مع ضغطة زر في XE3 ؟ - ALmuhhnad - 04-01-2013
السلام عليكم
قبل قليل لاحظت اني وضعت مجلد الصور "Picture" في مجلد الكود وليس مجلد البرنامج الناتج "Win32\Debug\"
... فعندما وضعت مجلد الصور بجانب الملف التنفيذي استطعت تحميل الصور
اعتذر على الاستعجال ... فقد كنت اضن ان الكود يختلف في XE3 لذلك لم انتبه لمكان المجلد
اعتذر مجدداً على إستعجالي
كيف اقوم تغيير صورة Image مع ضغطة زر في XE3 ؟ - onexite - 04-01-2013
اضن عليك ;وضع مجلد الصور في هذا للمسار
Win32\Debug
ليصبح
Win32\Debug\Picture\ModePunka.jpg