, er pop - up - menu?, ved hjælp af wm_menuselect budskab i form ikke vil arbejde for at kontrollere, om den pop - up - er åben.simpelthen fordi de stiftende af pop - up - er ikke, form (se pop - up - metode til tpopupmenu).en løsning er at anvende, api - og kalde dig selv:,,,,,,,, tform1 = klasse (tform),,,,,,,,, procedure formmousedown (afsender: tobject; knap: tmousebutton;, skift: tshiftstate; x, y: heltal), private, ismenuopen: boolean,,, procedure wmmenuselect (var budskab: twmmenuselect); meddelelse wm_menuselect;,,, procedure tform1. wmmenuselect (var budskab: twmmenuselect), begynder, arvede,,, ismenuopen: = ((message.menuflag og $eøf > 0) og (message.menu = 0),,,,,, procedure tform1. formmousedown (afsender: tobject; knap: tmousebutton;,,, skift: tshiftstate; x, y: heltal), begynder, hvis knap = mbright, med clienttoscreen (punkt (x, y) gør, trackpopupmenuex (popupmenu1.handle, tpm_leftalign, x, y,,, selv klare, nul),,,,,,