我在做可以修改表单颜色的菜单,其中用到菜单灰度控制,但不知道为什么,clBlack和clAqua居然一样,我明明点的clAqua,程序却灰了clBlack!!!以下是原代码,我觉得已经没错了。请各位大侠试试??unit UntChangeFormColorMene;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Color1: TMenuItem;
    Red1: TMenuItem;
    Black1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    Othercolor1: TMenuItem;
    Aqua1: TMenuItem;
    Menu1: TMenuItem;
    N2: TMenuItem;
    Face1: TMenuItem;
    procedure Red1Click(Sender: TObject);
    procedure White1Click(Sender: TObject);
    procedure Black1Click(Sender: TObject);
    procedure Green1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Aqua1Click(Sender: TObject);
    procedure Menu1Click(Sender: TObject);
    procedure Face1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Red1Click(Sender: TObject);
begin
  Form1.Color:=clRed;
  Red1.Enabled:=false;
  Black1.Enabled:=true;
  Aqua1.Enabled:=true;
  Menu1.Enabled:=true;
  Face1.Enabled:=true;
end;procedure TForm1.White1Click(Sender: TObject);
begin
  Form1.Color:=clWhite;
end;procedure TForm1.Black1Click(Sender: TObject);
begin
  Form1.Color:=clBlack;
  Black1.Enabled:=false;
  Red1.Enabled:=true;
  Aqua1.Enabled:=true;
  Menu1.Enabled:=true;
  Face1.Enabled:=true;
end;procedure TForm1.Green1Click(Sender: TObject);
begin
  Form1.Color:=clGreen;
end;procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;procedure TForm1.Aqua1Click(Sender: TObject);
begin
  Form1.Color:=clAqua;
  Aqua1.Enabled:=false;
  Menu1.Enabled:=true;
  Red1.Enabled:=true;
  Black1.Enabled:=true;
  Face1.Enabled:=true;
end;
//就是这儿了procedure TForm1.Menu1Click(Sender: TObject);
begin
  Form1.Color:=clMenu;
  Menu1.Enabled:=false;
  Red1.Enabled:=true;
  Black1.Enabled:=true;
  Aqua1.Enabled:=true;
  Face1.Enabled:=true;
end;procedure TForm1.Face1Click(Sender: TObject);
begin
  Form1.Color:=clBtnFace;
  Face1.Enabled:=false;
  Menu1.Enabled:=true;
  Red1.Enabled:=true;
  Black1.Enabled:=true;
  Aqua1.Enabled:=true;
end;end.