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