Edit: Problem nicht gelößt!
Danke.
Bei der Gelegenheit habe ich daraus eine Interposer-Klasse gemacht. Ich mag solche "Ex"-Anhängsel an Namen nicht:
Delphi-Quellcode:
type
TPopupList =
class(
Vcl.Menus.TPopupList)
Und in der
dpr-Datei
Delphi-Quellcode:
Vcl.Menus.PopupList.Free;
Vcl.Menus.PopupList := TPopupList.Create;
TPopupList(PopupList).PopupMenu :=
nil;
UND bei der Gelegenheit merke ich, dass DoPopup gar nicht funktioniert!
Ich weiß nicht genau warum, aber DoUpdate wird nie aufgerufen.