تغییر اشاره گر موس؟!

[mbshareat]

بنده در بخشی از برنامه ام تغییر اشاره گر موس را گنجانده ام ولی این تنظیم به طور اتوماتیک اعمال نمی شود و تا موس جابجا نشود یا یک شیئ در فرم جابجا نشود اعمال نمی شود .:ناراحت:
آیا راهی برای اعمال آنی تنظیمات شکل اشاره گر موس به نظرتون می رسه.در ضمن در بنامه ام که یک برنامه ترسیم است باید بتونم با فشار کلید موس شاره گر رو هم تغییر بدم ولی این امر موجب می شه که منوی کنترل اندازه فرم گوشه بالای فرم فعال بشه .اگ ممکنه منو راهنمایی کنین!:اشتباه:


.قبلا از کمکتون تشکر می کنم
:قلب:

[vcldeveloper]

چه کدی برای تغییر شکل اشاره گر نوشتید؟

[mbshareat]

کد من برای تغییر اشاره گر ماوس از این قراره که اول فایل منبع رو برای تعریف شکل اشاره گر به دلفی معرفی می کنم:

program PaintProPrj;
uses
Forms,
PaintPro in 'PaintPro.pas' {MainForm},
SharedUnit in '..\SharedUnit.pas',
IconSaver in 'IconSaver.pas' {IconForm};
Cursur تعريف مکان تعريف شکل
{$R PaintPro.res}

و این هم از کد تغییر اشاره گر

unit PaintPro;
....
تعريف اشاره گر و فعال سازي
SCreen.CursorS[50]:= LoadCursor(HInstance, 'SelArea');
Scene.Cursor := 50;

قبلا از کمکتون ممنونم.:قلب: