Автор Wingman задал вопрос в разделе Другие языки и технологии
Delphi, PopupMenu и получил лучший ответ
Ответ от Victor Ermolaev[гуру]
Надо отцепить PopupMenu от всего и procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var point : TPoint; index : integer; begin if (Button = mbRight) then begin point.X := X; point.Y := Y; index := ListBox1.ItemAtPos(point, true); if index >= 0 then // если щелчек по полю списка begin ListBox1.Selected[index] := true; PopupMenu1.Popup(ListBox1.ClientOrigin.X + X, ListBox1.ClientOrigin.Y + Y); end; end; end;
Ответ от Задавалкин Вопросалкин[активный]
ну потому что надо было написать это в событии клика по элементу листбокса а не по форме
ну потому что надо было написать это в событии клика по элементу листбокса а не по форме
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Delphi, PopupMenu