Hvordan sjekke om en meny er falt ned eller not.type TForm1 = klasse (TForm) ... privat IsMenuOpen: Boolean; Prosedyren WMMENUSELECT (var budskapet: TWMMENUSELECT); Meldingen WM_MENUSELECT; prosedyre TForm1.WMMENUSELECT (var budskapet: TWMMENUSELECT), begynner arvet; IsMenuOpen: = ikke ((message.MenuFlag og $ FFFF > 0) og (message.Menu = 0)); end; Anmeldelser