Von welcher Komponente kommt popup-Aufruf

[Sir Rufo]

Das ist eigentlich recht simpel

Delphi-Quellcode:

procedure TForm1.ListBox1ContextPopup( Sender: TObject; MousePos: TPoint; var Handled: Boolean );
var
  LIdx: Integer;
begin
  // Item-Index bestimmen
  LIdx := TListBox( Sender ).ItemAtPos( MousePos, True );
  
  if LIdx >= 0 then
  begin
    // ItemIndex setzen
    TListBox( Sender ).ItemIndex := LIdx;
  end
  else
    // kein Popup anzeigen
    Handled := True;
end;