Højreklik på et ListBoxItem

ListBox.ItemIndex => 0 even :o)

Skal det være ved venstre museclick eller højre museclick ?

Nedenstående virker ved venstreclick

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > -1 then
    PopupMenu1.Popup(100,100);
end;

Sorry, jeg læste ikke lige din overskrift :(

Men du skal nok have fat i OnMouseDown eventet, checke om der er højreklikket, regne ud
om der er nogle \"Items\" inden for de givne X,Y koordinater og hvis så:

PopupMenu1.Popup(100,100);

ListBoxen skal ikke have angivet hvilken popup du skal bruge. Desuden skal du sætte PopupMenuens AutoPopup til false, og tilføj dette i onMouseDown på listboxen.

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  punkt: TPoint;
begin
  ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(X, Y), true);
  if (ssRight in shift) and (ListBox1.ItemIndex >= 0) then
    begin
      GetCursorPos(punkt);
      PopupMenu1.Popup(punkt.X, punkt.Y);
    end;
end;


/SpEeDy

Speedy> elegantløsning med ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(X, Y), true); :-)

morten_S>>hehe...det er bare fordi jeg er så træt af at når man højreklikker på et item som ikke er markeret, så bliver det normalt ikke markeret hvilket jeg synes det burde :)

/SpEeDy