VCL TMenuItem Caption nicht sichtbar

[DerMondistunsereSonne]

Moin,

Ich füge in einem DBRichEdit dynamisch ein Menüband ein. Leider bleiben ab einer gewissen Tiefe die Captions auf der Strecke:

Delphi-Quellcode:

Platzhalter1 := AddMenuItem(Form.Menu, '&Mein toller Menüpunkt', nil);
xItem:= AddMenuItem(Platzhalter1, 'Spitze', nil);
tItem:= AddMenuItem(xItem, 'Oder doch nicht', nil);
AddMenuItem(tItem, 'Wer weiss', nil);

Und

Delphi-Quellcode:

function AddMenuItem(Owner: TComponent; ACaption: string; MyEvent: TNotifyEvent): TMenuItem;
   var
      menuItem: TMenuItem;
   begin
      menuItem := TMenuItem.Create(Owner);
      menuItem.caption := ACaption;
      menuItem.OnClick := MyEvent;
      Result := menuItem;

      if Owner is TMenu then
         (Owner as TMenu).Items.Add(menuItem)
      else
         (Owner as TMenuItem).Add(menuItem)
   end;

Nach Spitze sind die Items vorhanden und auswählbar, aber leider ohne Beschriftung. Kann mir jemand weiterhelfen?

[jaenicke]

Ich kann das nicht reproduzieren. Hättest du vielleicht ein kleines Beispielprojekt?

[DerMondistunsereSonne]

Hallo jaenicke,

Leider nicht, ich versuche gerade eins zu erstellen und habe festgestellt, dass es kein TDBRichEdit, sondern ein TwwDBRichEdit ist. Also liegt es vielleicht auch an der Komponente.

[DerMondistunsereSonne]

So beim Ausprobieren herausgefunden, dass es an Theme liegt. Ohne bekomme ich die Texte angezeigt, mit leider nicht. Kann mir jemand helfen, welcher Eintrag dafür ggf. verantwirtlich sein kann?

[DerMondistunsereSonne]

Ok, hier ist dann die Lösung.