delphi4arab منتديات دلفي للعرب

نسخة كاملة : تحريك مؤشر progressbar عند الضغط بالفأرة progressbar position on mouse down
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

الحويطي

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


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

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

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

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