Delphi-PRAXiS - Delphi MainMenü neu malen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)

- - Delphi MainMenü neu malen (https://www.delphipraxis.net/179338-mainmenue-neu-malen.html)

MainMenü neu malen

Ich habe eine mehrsprachige Anwendung mit einem MainMenu. Die Anwendung läßt sich OnTheFly umschalten. Jedoch wird das MainMenu beim Umschalten der Sprache nicht neu aufgebaut.
Da sämtliche Versuche mit Refresh, Repaint usw. nicht geholfen haben, blende ich das Formular mit visible:= false und dann visible:= true aus und wieder ein. Das funktioniert so weit. Blöd ist nun, dass ich die Ereignisse OnShow abfangen muss.
Gibt es eine bessere Möglichkeit, um das Menü neu zu zeichnen?
Es würde auch ausrreichen, wenn ich das Neuzeichnen eines TMenuItem veranlassen könnte.

AW: MainMenü neu malen

Hast Du es mal mit

DrawMenuBar versucht?

AW: MainMenü neu malen

Obwohl re:= DrawMenuBar(MainMenu.WindowHandle) true zurückliefert, führt es nicht zum gewünschten Effekt.
Mit SendMessage(MainMenu.WindowHandle, wm_SysCommand, sc_Restore, 0) funktioniert es jedoch.