TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen

[Glados]

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.