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

[issamdnn]

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

ضع ضمن القسم const

crIssam : integer = 5;

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

5- أضف التصريح التالي ضمن القسم implementation
{$R delta.res}

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

6- ضع ضمن الحدث FormCreate للفورم الخاص بك الكود التالي:
Screen.Cursors[crISSAM] := LoadCursor(HInstance, 'GOOD');
Screen.Cursor := TCursor(crISSAM);

شغل وأستمتع .

[AL-MOB4RM3G]

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

سؤآل,
crIssam : integer = 5;

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

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

[issamdnn]

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

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

وفقك الله .
http://z.about.com/d/delphi/1/0/3/4/scrcurs.gif