استفاده از شکل های مختلف 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');

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

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

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