Delphi popupmenu вызов
Автор Оранжевая рубашка задал вопрос в разделе Другие языки и технологии
Delphi: как сделать,чтобы при нажатии ЛЕВОЙ кнопкой мыши по объекту выводилась PopupMenu? и получил лучший ответ
Ответ от Vitaly[гуру]
Бросить на форму PopupMenu (ну и, конечно, оформить - двойным кликом)
а в инспекторе для этого объекта в свойствах (PopupMenu) выстави этот PopupMenu1
Ответ от Игорь Зорков[гуру]
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Delphi: как сделать,чтобы при нажатии ЛЕВОЙ кнопкой мыши по объекту выводилась PopupMenu?