procedure DrawMenuBGColor(AMenu: HMenu; AColor:TColor);var mi:tagMENUINFO;begin GetMenuInfo(AMenu, mi); with mi do begin cbSize := sizeof(mi); fMask := MIM_BACKGROUND; hbrBack := CreateSolidBrush(AColor); end; SetMenuInfo(AMenu, mi); DrawMenuBar(GetParent(AMenu));end;DrawMenuBGColor(MainMenus.Handle,FCColor);
