تحريك مؤشر progressbar عند الضغط بالفأرة progressbar position on mouse down

[الحويطي]

مرحبا بكم إخواني الكرام ...


قد يحتاج البعض منا إلى استخدام progressbar بدلا من استخدام Trackbar لتغيير خاصية معينة

ضمن القيمتين العظمى والصغرى فيظهر هنا الحاجة لهذا الكود ...

يوضع داخل الحدث OnMouseDown للـ ProgressBar

كود :

with TProgressbar(Sender) do Position := Round((X - ClientRect.Left) / width * (Max - Min));