چگونگی تغییر cursor [بایگانی]

sobhangh

شنبه 09 آذر 1387, 18:06 عصر

سلام.ببخشید.
اگر بخواهیم cursor مورد علاقه و ساخته شده ی خودمان را open کنیم و در خروجی از آن استفاده کنیم. چه کدی استفاده کنم یا چه کار کنیم.
امیدوارم این سوال قدیمی من را جواب بدید. البته چند وقتی یادم رفته بود اما دوباره اهمیت پیدا کرده و من روی شما دوستانم حساب کردم.
متشکر.

Hamid_PaK

شنبه 09 آذر 1387, 22:07 عصر

ابتدا cursor رو ریسورس کنید، سپس با استفاده از ResourceID آن و تابع LoadCursor به فرم و یا کنترل مورد نظرتان مقدار دهی کنید.

یا حق ...

M_Maskout

شنبه 28 اسفند 1389, 12:27 عصر

اول cursor مورد نظرتون رو با یکی از المنت‌های آرایه Cursor از شیء Screen جایگزین کنید:

Screen.Cursors[90] := LoadCursor(HInstance, ResourceID);

بعد هم مقدار Cursor فرم (پنجره) دلخواه رو برابر شماره اون المنت قرار بدین:

Form1.Cursor := 90;