我在做可以修改表单颜色的菜单,其中用到菜单灰度控制,但不知道为什么,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.
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.
解决方案 »
- 请教:用QuickReport做明细表形式的报表,怎样设置DetailBand和QRSubDetail1,才能保证Detail和SubDetail里面的数据关联?
- 如何看delphi 自带 控件的源代码?
- str函数怎么用?
- 哪有DELPHI6.0的汉化包啊~~~~~~~~~~~~~~~~~
- Delphi7注册码输好了,可是启动时还是Unregistered,请问谁有dent.slip,给我一份
- 如何取局网和公网的服务器时间
- 请问如何控制FASTREPORT一次预览的页数
- 问在执行一个console application后如何返回结果?
- 升级啦!! 谢谢弟兄们的支持!! 散分!!顺便问一个小问题(关于mozilla).
- 一个多线程的不能在简单的程序,80分,谁要?
- 关于往文件头写标识,然后读取文件的问题
- 软件开发中遇到一个问题,请朋友们进来看一下!
这里设断点,看执行了没有,执行时clAqua的值是多少