كيفية تغيير المؤشر ضمن تطبيقك - نسخة قابلة للطباعة

كيفية تغيير المؤشر ضمن تطبيقك - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : كيفية تغيير المؤشر ضمن تطبيقك (/showthread.php?tid=1489)

كيفية تغيير المؤشر ضمن تطبيقك - issamdnn - 10-01-2010

كثيراً ما يحتاج المبرمج تغيير مؤشر الماوس ضمن تطبيقه ولا يجد ضمن قائمة المؤشرات التي تؤمنها دلفي ضالته وهذه هي طريقة تغيير المؤشر :

ضع ضمن القسم const

PHP كود :
crIssam : integer = 5; 

ثم أختر القائمة Tools>Image Editor من ضمن قوائم دلفي ثم أنشئ ملف *.res وذلك كما يلي:
1- File>new>Resource file
2- سيعطي البرنامج نافذة تحتوي على النص : ....Contents أضغط عليها باليمين وأختار new>cursor
3- سينشأ البرنامج مؤشر جديد بأسم cursor1 قم بإعادة تسميته وليكن مثلا الأسم الجديد GOOD إذا أردت ثم بالضغط مرتين عليه سيعطيك نافذة التحرير الخاصة بالمؤشر الجديد قم برسمه يدوياً أو أنسخه من مكان وألصقه....
4- أغلق نافذة التحرير ثم أحفظ الملف بأي أسم غير عربي مثل delta أو أي أسم تريده ...ولكن ضمن مسار الملف التنفيذي.

5- أضف التصريح التالي ضمن القسم implementation

PHP كود :
{$R delta.res} 

ويختلف الأسم حسب ملف الريسورس الخاص بك(delta.res).

6- ضع ضمن الحدث FormCreate للفورم الخاص بك الكود التالي:

كود :
Screen.Cursors[crISSAM] := LoadCursor(HInstance, 'GOOD');
  Screen.Cursor := TCursor(crISSAM);

شغل وأستمتع .

كيفية تغيير المؤشر ضمن تطبيقك - AL-MOB4RM3G - 10-01-2010

جزاك الله خيرا اخي عصام,

سؤآل,

كود :
crIssam : integer = 5;

لماذا من النوع integer ؟ ولماذا 5 بالتحديد ؟

بارك الله لك اخي الكريم, وبالفعل, منكم نستفيد اخي الحبيب

كيفية تغيير المؤشر ضمن تطبيقك - issamdnn - 11-01-2010

عزيزي AL-MOB4RM3G إن مؤشرات الشاشة Screen.Cursors[] هي عبارة عن مصفوفة من المؤشرات مزودة من قبل دلفي وهي تبدأ من الرقم 0 حتى -21 ويمكن إستخدام أي رقم جديد شريطة أن لا يكون بين الأرقام الموضحة مسبقاً كي لا يتم تغيير القيمة الإفتراضية للمؤشرات الموجودة أصلاً في دلفي ..

أي يمكن أستخدام أي رقم إبتداءً من الرقم 1 .

وفقك الله .
[صورة: scrcurs.gif]