Вызов контекстного меню в позиции курсора
Автор: 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;
|
|
|
|
|
Трикотаж оптом (Санкт-Петербург): вязаный трикотаж. Белорусский трикотаж оптом. . интернет магазин запчастей . Принимаем грунт и слом: вывоз мусора. . афиша на апрель театра оперы и балета в Киеве . |
