Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

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

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

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

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;

- Ed Jordan [000953]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК