Вызов контекстного меню в позиции курсора



Автор: Ed Jordan

У меня есть проблема с правильным вызовом контекстного меню в координатах курсора мыши.

Это будет работать:


procedure TForm1.Form1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
with ( Sender as TControl ).ClientToScreen( Point( X, Y )) do
PopupMenu1.Popup( X, Y );
end;


Далее: Вызов контекстного меню в позиции курсора 2 »»