04-01-2009, 05:09 PM
ضع مكون TLabel واكتب في حدث OnMouseMouve هذه الشيفره:
كود :
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var Pt: TPoint;
begin
GetCursorPos(Pt);
PopupMenu1.Popup(Pt.X,Pt.Y);
end;