Označení položky na pravé tlačítko – Delphi – Fórum – Programujte.com

Potřebuju, aby se položky v listboxu označovali při stisknutí pravého tlačítka na myši.

Na co? Používám popupmenu a pri jeho vyvolání potřebuju vědet na jakou položku jsem kliknul.

Edit: VYŘEŠENO

Je sice pěkný že jsi to vyřešil, ale taky by si mohl napsat jak, aby jsi pomohl i ostatním.
Já bych to řešil asi takhle:

ListBox1.ItemIndex := ListBox1.ItemAtPos(ListBox1.ScreenToClient(Mouse.CursorPos),True);

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

var

  MousePos      : TPoint; 

  OverItemIndex : integer;

begin 

  MousePos.x := X;

  MousePos.y := Y;

  if Button = mbRight then

    begin 

      OverItemIndex := listbox1.ItemAtPos(MousePos,False);

      listbox1.ItemIndex:=OverItemIndex;

    end;

end;