Вызов контекстного меню в координатах курсора мыши
Предлагаю свою процедуру в раздел "Компоненты" - "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;
|
Процедура, возможно, не особо оригинальна, но все же отличается от двух, ранее
представленных в Ваших советах и довольно проста.
|
|
|
|
Получение технических условий Домодедово . Вино оптом, коньяк Франция. Коньяк и вино из Франции. . Купить диван можно у нас - купить диван. Мягкая мебель. . |
