ListBox выделение левой кнопкой

[пауэрлифтинг]

у меня на ListBox поставлено PopupMenu. как сделать чтобы при нажатии левой кнопки мыши выделялась строка списка. что бы знать к какой строке относиться меню

[mihali4]

Тупой вопрос. Левой она и так выделяется.

З.Ы. Подозрение на бота. Ставлю на контроль.

[psycho-coder]

Сообщение от mihali4

Тупой вопрос. Она и так выделяется.

З.Ы. Подозрение на бота. Ставлю на контроль.

Имеется ввиду, если была выделена другая строка то свойство ListBox1.ItemIndex вернет не ту по которой кликнули, а ту которая была выделена до этого.

2ТС Может все таки при нажатии правой кнопкой мыши?
Тогда нужно послать сообщение клика левой кнопки листбоксу.

[пауэрлифтинг]

да. при нажатии правой не выделяться
а какое событие возникает при нажатии правой кнопки мыши?

[artemavd]

пауэрлифтинг,

procedure TForm1.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin

end;

[Volt]

Может вам надо вот это

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
begin
ListBox1.ItemIndex:=  ListBox1.ItemAtPos(Point(x,y), True);
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

end;

[psycho-coder]

  if Button = mbRight then
    mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);