مشکل نمایش Popup menu

[mahdiya]

می خوام روی فرم وقتی روی باتن خاصی SpeedButtonکلیک شد، یک منو نشون داده بشه(برای نشون دادن کلیدهای میانبر فرم)برای همین از یه Popupmenu استفاده کردم که در ایونت OnClick باتن منو رو نشون بده اما نمی دونم چرا در همون مختصاتی که بات هست نشون نمیده.کسی می دونه دلیلش چیه؟:ناراحت:

[اصغر (پآچ)]

سلام دوست من

شما باید با توجه به رزولیشن صفحه نمایشت بیای مختصات محل کلیک شدن رو بدست بیاری و به منوی پاپ آپ بگی توی اون مختصات نمایش داده بشه

موفق و موید باشی

[vcldeveloper]

var
pt : TPoint;
begin
with SpeedButton1 as TControl do
begin
pt := Parent.ClientToScreen(Point(Left+Width, Top+Height));
PopupMenu.Popup(pt.X,pt.Y);
end;
end;