+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إستعمال الprogressbar (/showthread.php?tid=1753)
إستعمال الprogressbar - سفيان العباسي - 05-03-2010
السلام عليكم و رحمة الله وبركاته
قمت بالتعديل على برنامج يقوم بحساب الملفات الموجودة في مجال محدد وقمت بإدراج progressbar لإظهار تقدم عملية الفحص ولكن المشكلة أني لم أجد الكود المناسب رغم البحث
الرجاء مساعدتي في ذلك وبارك الله فيكم
الملف بالمرفقات
إستعمال الprogressbar - abdelmalek - 05-03-2010
السلام عليكم ورحمة الله وبركاته
اخي الملف الذي في المرفق ناقص
اعادة التأكد من المرفق
إستعمال الprogressbar - سفيان العباسي - 05-03-2010
السلام عليكم ورحمة الله وبركاته
معذرة أخي لإدراج ملف ناقص
الملف الكامل موجود بالمرفقات
إستعمال الprogressbar - shagrouni - 06-03-2010
أدخل تعليمة تحريك ProgressBar في الإجرائية التالية:
كود :
procedure PourFichier(NomFichier:String;objet:Tobject);
begin
Form1.Memo1.Lines.Add(NomFichier);// j'ajoute le fichier trouvé dans le Memo1
inc(NbFichier);
Form1.ProgressBar1.Position := NbFichier;
end;إستعمال الprogressbar - Rover - 06-03-2010
الامر ليس بهذه البساطة أخي سفيان ..
الخطوات :
1- حساب الحجم الكلي او العدد الكلي للملفات و المجلدات المحددة ( حسب الهدف من البحث )
2- تعيين القيمة ( max ) للــ progressbar وفق الحجم او العدد الكلي ..
3- زيادة قيمة ( position ) للــ Progressbar مع كل ملف او مجلد مضاف حسب الحجم الذي يشكله من الحجم الكلي .
4- انشاء ( Thread ) منفصل لكل عملية ( البحث و التحريك و الاسناد ) ..
--------------
بالتوفيق
إستعمال الprogressbar - سفيان العباسي - 06-03-2010
السلام عليكم ورحمة الله وبركاته
شكرا لإهتمامكم بموضوعي وأستسمح الأخ river مدي بمثال وجزاك الله خير الجزاء
إستعمال الprogressbar - سفيان العباسي - 10-03-2010
السلام عليكم ورحمة الله وبركاته
لقد تمكنت بحمد الله من حل مشكلتي وكان الحل بسيطا ولكي تعم الفائدة إليكم أعضاء المنتدى الرائع البرنامج مع الكود
وجزاكم الله خير الجزاء