سوال در مورد Popup menu

[kamran_14]

سلام
چطوری می شه یک منویی را در هنگام رخ دادن رویداد MouseDown فراخوانی کرد.

[nilidelphi]

با سلام
می تونی از متد popup منو در رویداد OnMouseMove یک عنصر استفاده کنی
اینم یک مثال :






procedure TForm1.Button1MouseDown(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);

var

pt:TPoint;
begin
pt:=Button1.ClientToScreen(point(0,0));
PopupMenu1.Popup(pt.X,pt.Y+Button1.Height);
end;