Rechtsklick auf Listbox öffnet PopUp "ohne Linksklick"

[Sharky]

Hai Aike,

versuche es doch mal so:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  cursorpos : TPoint;
  ndx : integer;
begin
  if Button=mbRight then
  begin
    cursorpos.X := X;
    cursorpos.Y := y;
    ndx := ListBox1.ItemAtPos(cursorpos,true);  // Item unter dem Cursor
    if (ndx <> -1) then
    begin
      with (Sender As TListBox) do
      begin
        Selected[ndx] := True;
        cursorpos :=  ClientToScreen(cursorpos);  // Positionsanpassung
        PopupMenu1.Popup(cursorpos.x + Left,cursorpos.Y + Top);
      end;
    end;
  end;
end;