Per Rechtsklick Eintrag markieren oder verarbeiten

[TiGü]

Delphi-Quellcode:

procedure TForm1.ListBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  LItemPosition: TPoint;
  LItemIndex: Integer;
begin
  if (ssRight in Shift) and (ListBox.ItemIndex <> -1) then
  begin
    LItemPosition := TPoint.Create(X, Y);
    LItemIndex := ListBox.ItemAtPos(LItemPosition, True);
    if LItemIndex > -1 then
    begin
      ShowMessage('Bin da: ' + ListBox.Items[LItemIndex]);
    end;
  end;
end;