Actions in ActionMainMenuBar werden bei vorhandenen Subitems nicht richtig ausgelöst

[EWeiss]

Zitat:

Ansonsten wurde es ja zumindest ab dem zweiten Klick schon erzeugt

Um das zu verhindern gibt es die Api TrackPopupMenuEx diese wartet solange bis du eine Aktion ausgeführt hast wie immer sie auch aussieht.

bsp.
MenuWahl := TrackPopupMenuEx(hMainMenu, TPM_RETURNCMD, 0, 0, WinHandle, nil);

direkt nach dem erstellen deiner SubMenus aufrufen
und ein anschließendes

DestroyMenu(hMainMenu);

Danach kannst du über MenuWahl auslesen welche Aktion ausgeführt werden soll bei einem klick auf einem Item vorausgesetzt du hast eines angeklickt
andernfalls ist MenuWahl halt false, dann wird nichts ausgeführt und dein Menu ist zerstört. (Frei gegeben)

Delphi-Quellcode:

if MenuWahl then
  SendMessage(WinHandle, WM_COMMAND, Makelong(word(MenuWahl), 0), 0);

Wenn du das nun auf die VCL umlegst sollte es keine Probleme geben.

Setze einen Breakpoint auf "if MenuWahl then" und du wirst sehen das es erst aufgerufen wird nach einer von dir ausgelösten Aktion.
Ein zweimaliges erstellen des gleichen Menus ist also nicht möglich da es vorher zerstört wurde.

gruss