Man kann auch ein Standard Menü nachträglich aufpeppen.
Mit der
API-Funktion
SetMenuInfo kann man ein Brush-
Handle für den Hintergrund zuweisen.
Delphi-Quellcode:
procedure TForm1.TestX1Click(Sender: TObject);
var
mi: TMenuInfo;
begin
if not Assigned(FBrush)
then
FBrush := TBrush.Create;
FBrush.Color := clRed;
// Rot!
FBrush.Style := bsSolid;
mi.cbSize := sizeof(mi);
mi.fMask := MIM_BACKGROUND;
mi.hbrBack := FBrush.Handle;
SetMenuInfo(Test1.Handle
{MenuItem-Handle}, mi);
end;