TMainmenu Farbe

[Flips]

Delphi-Quellcode:

...
var fMenuBrush: TBrush;  //globale Variable
...
procedure TForm1.FormCreate(Sender: TObject);
 begin
    //Färbt MainMenu weiß
  fMenuBrush := TBrush.Create;
  fMenuBrush.Color := clWhite; //Farbe


  MenuInfo.cbSize  := SizeOf(MenuInfo);
  MenuInfo.hbrBack := fMenuBrush.Handle;
  MenuInfo.fMask   := MIM_BACKGROUND;
  SetMenuInfo(MainMenu1.Handle, MenuInfo);
 end;