نوشتن رویداد onrightclick برای کنترلهای داینامیک

[آیدا رضایی]

سلام دوستان.
من Button هایی رو بصورت داینامیک در برنامه ام ایجاد میکنم.
قبلا از شما کمک گرفته بودم و برای رویداد OnClick اونها تونستم کدهای مورد نظر خود را اجراکنم.
حالا اگه بخوام رویدادی رو برای RightClick ماوس واسه اون Button ها نیز اضافه کنم باید چه کار کنم.
این نکته رو هم همه میدونید که رویدادی به نام OnRightClick در مورد Button های دلفی وجود نداره :افسرده: .

ممنون میشم راهنمایی کنید.

[Danyal_t]

من با دلفی کار نکردم ولی فکر می کنم تو همون Event میگه با کدوم کلید موس کلیک شده

[Touska]

من با دلفی کار نکردم ولی فکر می کنم تو همون Event میگه با کدوم کلید موس کلیک شده

این درسته ولی نه تو onclick بلکه تو Onmousedown

موفق باشید.

[آیدا رضایی]

میشه لطف کنید و یه مثال برای من بزنید .

[Hamid_PaK]

در رخداد ( Event ) کلیک شدن موس ( OnMouseDown or OnMouseUp ) این کد را اضافه کنید ...



begin
case Button of
mbLeft: ShowMessage('Left Mouse Clicked ...');
mbRight: ShowMessage('Right Mouse Clicked ...');
mbMiddle: ShowMessage('Middle Mouse Clicked ...');
end;
end;



یا حق !!!

[آیدا رضایی]

مرسی دوستان.
مشکلم حل شد.