Delphi-Quellcode:
procedure TPopupMenu.Popup(X, Y: Integer);
begin
// TPopupListEx(PopupList).PopupMenu := Sender as TPopupMenu; // wie komme ich hier an den Sender?
TPopupListEx(PopupList).PopupMenu := Self; // So! Schau mal in den Original-Code von TPopupMenu.Popup...
inherited;
end;
Du müsstest nur noch erklären, wie du aus PopupList ein TPopupListEx machst. Das geht aus deinem Code-Beispiel nicht hervor.