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?