Moin!
Ich arbeite mit Delphi 5 und 7 aber für mein Projekt darf ich nur Delphi 5 nutzen, daher nix mit den ActionBands...
Delphi-Quellcode:
Procedure Tfrm_FBIIMainForm.SetMainMenuBGColor;
Var
MenuInfo : TMenuInfo;
// Struktur für die SetMenuInfo() Funktion der WinAPI
Begin
// du musst dir eine globale Variable anlegen namens fMenuBrush. Diese Variable enthält einen Brush
// der so lange existieren sollte wie das Menu angezeigt wird, weil die Menufunktion beim malen immer
// auf das Brush Handle zugreift.
fMenuBrush := TBrush.Create;
// ok, diesen Brush einmal anlegen
fMenuBrush.Color := clWhite
// Farbe zuweisen die das Menu haben soll
// die MenuInfo Struktur füllen
MenuInfo.cbSize := SizeOf(MenuInfo);
// die WinAPI will die Grösse der Struktur eingetragen haben
MenuInfo.hbrBack := fMenuBrush.Handle;
// dann will sie das Brush Handle haben zum malen
MenuInfo.fMask := MIM_BACKGROUND;
// dann müssen wir noch angeben, das dies für den Hintergrund ist
SetMenuInfo(mnu_MainMenu.Handle, MenuInfo);
// nun für unser TMainMenu namens mnu_MainMenu den Hintergrundbrush setzen
End;
MfG
Muetze1