استفاده از شکل های مختلف Cursor در برنامه

سلام

چطور میشه از شکل های مختلف Cursor در برنامه استفاده کرد ؟

مثلا ً من خودم یه شکلک برای Cursor طراحی کردم و میخوام توی برنامه ام از اون استفاده کنم.

در واقع باید از یه فایل cur.* به عنوان شکلک موس استفاده کرد.

ممنون

سلام دوست عزيز.
اين دقيقا چيزيه كه خود دلفي گفته ميتونين ازش استفاده كني.
امتحانش كن و خبرشو بده

کد:

---


const

  crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
  Cursor := crMyCursor;
end;

---

سلام
ديگه به اين لازم نيست
const

crMyCursor = 5;
مي تونستي توي اين قسمتScreen.Cursors[crMyCursor]
به جاي crMyCursor از عدد استفاده كني
راستي دوست عزيز برو به تاپيك
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
توي اين تاپيك يه توضيحاتي در مورد چيز كه مي خواستيد شده.

تشکر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

امتحانش كن و خبرشو بده

---

موفق نشدم !

سلام
يك كار اصلي را يادتون رفته بنويسيد و اون لود كردن فايل كرسر است!
روشي كه شما گفتيد براي لود كردن كرسر از ريسورس است. ولي براي استفاده از كرسر خارجي مي تونيد اينطوري عمل كنيد :

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
var
 hCur: HCURSOR;

begin
 hCur := LoadCursorFromFile('mycursor.cur');
 Screen.Cursors[1] := hCur;
 Screen.Cursor := 1;
end;

---

سلام نانفرس جان
مر مباح براي اسكرين كرسر لود كرده
اما شما متغير را لود و بعد اسكرين كرسر
را به اون متغير نسبت دادين
هيچ فرقي نداره.! بله مال مردمباح ساده تر بود.

سلام
شرمنده ولي اين 2 تا كد كلي با هم فرق مي كند .

كد مرد مباح :

LoadCursor(HInstance, 'NewCursor');

اگر از اين روش بخواهيد استفاده كنيد بايد قبلا فايل كرسر را در فايل ريسورس قرار دهيد.

كد من :

LoadCursorFromFile('mycursor.cur');

در اين روش فايل كرسر بصورت يك فايل معمولي بارگذاري مي شود.

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

سلام
اين بابا اين بنده خدا را چي كار داري
اين كه كارش راه افتاد گيجش مي كنيد
يكي از خودتون امتحان كنه
در ضمن كد ها هم خيلي فرق نه نداره
اما اگر ناراحت نشيد

راستي نانفرس جان
چرا حرف ميذاري توي دهن اين دوستمون
يه دلفي كار ماهر بايد قضاوت كنه غير از خودمون
آخه اين كدها چه فرقي داره
نانفرس:
hCur := LoadCursorFromFile('mycursor.cur');
Screen.Cursors[1] := hCur;
مردمباح:
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');

فقط شما دستورتوLoadCursorFromFile بود و مردمباح LoadCursor كه ضروري نيست
در ضمن نمي خواهم اين بحث رو كشش بدم! اينو ميگم براي بحث هاي آينده
در ضمن يه برنامه را از هر روشي كه دلت بخواد مي توني بسازي
يه روش و روال خواص نيست و اين برتري برنامه نويسي به انجين هاست

نقل قول:

---

سلام
اين بابا اين بنده خدا را چي كار داري
اين كه كارش راه افتاد گيجش مي كنيد
يكي از خودتون امتحان كنه
در ضمن كد ها هم خيلي فرق نه نداره
اما اگر ناراحت نشيد

---

سلام

Soldier جان گیج نمی شم اینقدر ها هم پَـپـه نیستم !

روش جناب NoneForce همونی بود که میخواستم.چون کرسر در یک فایل خارجی مثلاً در C:\smile.cur قرار داره باید از طریق
LoadCursorFromFile
لود بشه.


فقط یه سوال برام باقی مونده چطور میشه کریر را در ریسورس قرار داد؟!

خیلی ممنون از همگی

سلام
به اون تاپيكي برو كه لينك دادم
در ضمن چرا ميزني و ناراحت ميشي
ببخشيد! اصلآ ممكنه من گيج بشم
خوبه؟! اينقدر ناراحت نشو
توي صفحه يك لينك دادم

نقل قول:

---

در ضمن چرا ميزني و ناراحت ميشي
ببخشيد! اصلآ ممكنه من گيج بشم

---

من ؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من که چیزی نگفتم! تازه تشکر هم کردم.

بابت اون لینک هم خیلی ممنون [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
خواهش مي كنم
قابلتو نداشت