OnMouseWheel برای Image

[N_D]

سلام
من میخوام یه کامپوننت TImageX بنویسم که در اون event های OnEnter ,OnLeave و مخصوصا OnMouseWheel , OnMouseWheelUp,OnMouseWheelDown وجود داشته باشند
دو event اول را نوشتم ولی هر چی با event های Wheel چونه میزنم فایده نداره .
کسی میتونه با نمونه کد این مورد رو توضیح بده
باتشکر

[amirrf]

سلام،

پشتیبانی MouseWheel در کلاس TControl معرفی شده است. اگر فقط می خواهید این رخدادها در دسترس کاربر باشند کافی است آنها را منتشر کنید:

TImageX = class(TImage)

published

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

end;

و اگر می خواهید با رخ دادن آنها کاری انجام دهید می توانید متدهای DoMouseWheelXXX را override کنید:

TImageX = class(TImage)

protected

  function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;

  function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;

end;

[N_D]

جناب amirrf خان ممنون از جوابتون راستش من میدونم که با این روش میشه event ها رو اضافه کرد ولی هر کار میکنم جواب نمیده اگه زحمتی نیست خودتون هم آزمایش کنید
مشکل آنجاست که event های mousewheelXXX تا زمانیکه روی control فوکوس نداشته باشید(روی TImage) فعال نمیشوند
البته خودم مجبور شدم Timage رو داخل یه TPanel بذارم و مشکل رو یه جوری حل کنم ولی میخوام فقط روی TImage این کارو انجام بدم.
حالا کسی میتونه این مشکل رو حل کنه
با تشکر