XPMenu für Items die zur Laufzeit erstellt worden sind

[Matze]

Moin :hi:

Erstelle ich zur Laufzeit meine Items des MainMenus, wird auf die neuen Items der Style der XPManu Komponente nicht angewand. Wieso nicht?

Die Items erzeuge ich so:

Delphi-Quellcode:

MenuItem := TMenuItem.Create(Self);
MenuItem.Caption := tempFileName;
MenuItem.Hint := MenuItem.Caption;
MenuItem.Name := 'Recent_' + IntToStr(RecentIndex);
MenuItem.Enabled := true;
MenuItem.OnClick := RecentFileClick;
Openrecentdocument1.Add(MenuItem);

Am Ende sieht es so aus, wie im Anhang zu sehen ist.

[xaromz]

Hallo,

kann es sein, dass Dein Hauptmenü kein normales TMainMenu ist? Bei mir sieht ein Menü namlich anders aus. Deines sieht eher aus wie ein Office-Menü.

Gruß
xaromz

[mirage228]

Hi,

Da gibts ne Prozedur, die ActivateMenuItem() oder so heisst.
Damit gehts :)

mfG
mirage228

[Matze]

Hallo

Zitat:

Zitat von xaromz

kann es sein, dass Dein Hauptmenü kein normales TMainMenu ist? Bei mir sieht ein Menü namlich anders aus. Deines sieht eher aus wie ein Office-Menü.

Das ist das normale, nur zusätzlich die XPMenu-Komponente darauf angewandt.

Nachtrag: Das teste ich mal David, danke.

Nachtrag 2: Super, es funktioniert. :thumb: