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;