Mit Rechstklick Eintrag in ListBox auswählen

[Tpercon]

Hier nen Auszug aus der OH dazu:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
var
  APoint: TPoint;
  Index: integer;
  TheObject: TControl;
begin
  if Button = mbRight then

  begin
  APoint.X := X;
  APoint.Y := Y;
  Index := ListBox1.ItemAtPos(APoint, True);
// hier müßtest du jetzt Index weiterverarbeiten

end;