, hvordan til at kontrollere, om en menu er faldet ned eller ej.,,,, tform1 = klasse (tform),,,,,,,,, private, ismenuopen: boolean,,, procedure wmmenuselect (var budskab: twmmenuselect); meddelelse wm_menuselect;,,, procedure tform1. wmmenuselect (var - besked: twmmenuselect), begynder, arvede,,, ismenuopen: = ((message.menuflag og $eøf > 0) og (message.menu = 0),,,,,,,