Just for the record (und die Nachwelt): Eine PN von KodeZwerg nahm ich zum Anlass, zu graben, warum ich die Funktion TMenuItem.AdvancedDrawItem damals im Delphi 5 überschrieben habe und warum er mit meinem Vorschlag keinen Erfolg verzeichnen kann.
Die Ursache liegt darin, dass die Funktion AdvancedDrawItem nur gerufen wird, wenn einem TMenu/TPopupMenu eine TImageList zugewiesen ist, oder
TMenu.OwnerDraw:= True
ist. Siehe z.B. auch dieser
Uralt-Thread in den Delphigroups. Für ein TMenu/TPopupMenu ohne ImageList und ohne OwnerDraw bringt mein Vorschlag keine Veränderung (=nichts).
Sollte also jemand versuchen, meinen Vorschlag umzusetzen und sich wundern, warum er nicht tut, so liegt es daran. Das wollte ich nur festgehalten haben. Es gibt aber andere Wege, z.B. der
über WndProc.
Grüße
Dalai