ListBox Правый клик ListBox

[Dinkin]

Добрый день.

Как по правому клики мыши.выделить итем в ListBox?. Проблема в том, что если у ListBox есть PoupMenu, оно перекрывает все события.

[Равиль Зарипов (ZuBy)]

1) отвязать TpopupMenu от ListBox

2) в событии OnMouseDown показать TPopupMenu самому, зная координаты курсора

[Dinkin]

Спасибо, но отвязывать нельзя, так как мне TpopupMenu  является меню настроек для выделенного итема.

в ФМ возможно узнать  координаты курсора  относительно объекта над которым находится (я бы хотя бы по координаторам получил итем и его сделал бы активным)?

Изменено 15 сентября, 2016 пользователем Dinkin

[Равиль Зарипов (ZuBy)]

отвяжите TPopupMenu от TListBox

procedure TForm4.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Single);
var
  aItem: TListBoxItem;
begin
  if Button = TMouseButton.mbRight then
  begin
    aItem := ListBox1.ItemByPoint(X, Y);
    if aItem = nil then
      exit;

    ListBox1.ItemIndex := aItem.Index;
    PopupMenu1.Popup(Screen.MousePos.X, Screen.MousePos.Y);
  end;
end;

 

Изменено 16 сентября, 2016 пользователем ZuBy
обновил код

[Dinkin]

Да спасибо!

Если в событие OnItemClick, то там достаточно этого

 ListBox1->ItemIndex = Item->Index;
 PopupMenu1->Popup(Screen->MousePos().X, Screen->MousePos().Y);

 

[Равиль Зарипов (ZuBy)]

8 минут назад, Dinkin сказал:

Да спасибо!

Если в событие OnItemClick, то там достаточно этого

 ListBox1->ItemIndex = Item->Index;
 PopupMenu1->Popup(Screen->MousePos().X, Screen->MousePos().Y);

 

это сработает на обе кнопки

[Dinkin]

выерно..поспешил, Ваш первый вариант луче