تنفيذ الماوس المتحرك في برمجة دلفي

الرسوم المتحركة هي ملف مع ANI كملحق.

قم بإنشاء مشروع جديد ، ووضع Button1 على Form1 ، ثم ابحث عن ملف مؤشر الرسوم المتحركة *. شفرة :

وحدة المؤشر

واجهة

يستخدم

Windows ، الرسائل ، sysutils ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ، الحوار ، stdctrls ؛

اكتب tform1 = فئة (tform)

Button1: Tbutton ؛

Formcreate الإجراء (المرسل: TOBJECT) ؛

الإجراء FormClose (المرسل: TOBJECT ؛ VAR ACTION: TCLOSEACTION) ؛

الإجراءات button1click (المرسل: tobject) ؛

{إعلانات خاصة}

الإعلانات العامة {الإعلانات العامة}

نهاية؛

var

Form1: Tform1 ؛

HoldCursor: Hcursor ؛

التنفيذ {＄ r ＊ .dfm}

الإجراء tform1.formcreate (المرسل: tobject) ؛

var

hnewcursor: hcursor ؛

يبدأ

button1.caption: = ′ إغلاق ′ ؛

hnewcursor: = loadCursorFromFile (′ e: /batman.ani ′) ؛

{اتصل بوظيفة API لتحميل ملف مؤشر الرسوم المتحركة ، يرجى ضبط مسار ملف ANI وفقًا لموقفك الفعلي}

HoldCursor: = setClassLong (form1.handle ، gcl_hcursor ، hnewcursor) ؛

{حفظ المؤشر الأصلي للتعافي في المستقبل}

نهاية؛

الإجراء tform1.button1click (المرسل: tobject) ؛

يبدأ

HoldCursor: = setClassLong (form1.handle ، gcl_hcursor ، holdCursor) ؛

Close () ؛ {لا تنس استعادة المؤشر قبل إنهاء البرنامج}

نهاية؛

نهاية.

الآن تقوم بتشغيله (اضغط F9) ، وبعد بدء تشغيله ، يصبح المؤشر مؤشر الرسوم المتحركة.