+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : تحريك مؤشر progressbar عند الضغط بالفأرة progressbar position on mouse down (/showthread.php?tid=4776)
تحريك مؤشر progressbar عند الضغط بالفأرة progressbar position on mouse down - الحويطي - 08-12-2012
مرحبا بكم إخواني الكرام ...
قد يحتاج البعض منا إلى استخدام progressbar بدلا من استخدام Trackbar لتغيير خاصية معينة
ضمن القيمتين العظمى والصغرى فيظهر هنا الحاجة لهذا الكود ...
يوضع داخل الحدث OnMouseDown للـ ProgressBar
كود :
with TProgressbar(Sender) do
Position := Round((X - ClientRect.Left) / width * (Max - Min));