Вызов контекстного меню в координатах курсора мыши

Тимошенко Александр пишет:

Предлагаю свою процедуру в раздел "Компоненты" - "PopupMenu" - "Вызов контекстного меню в координатах курсора мыши"

procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
var
FCursor : TPoint; begin
if Button=mbRight then begin GetCursorPos(FCursor); PopupMenu1.Popup(FCursor.X,FCursor.Y); end; end;

Процедура, возможно, не особо оригинальна, но все же отличается от двух, ранее представленных в Ваших советах и довольно проста. [001700]

Содержание раздела