我在做可以修改表单颜色的菜单,其中用到菜单灰度控制,但不知道为什么,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.
解决方案 »
- 在delphi中用bde连库的增删改查
- 关于往文件头写标识,然后读取文件的问题
- 对于oraacle数据库,delphi处理下面哪种做法执行效率高
- IDFTP中可以获取目录的所占空间的大小吗?另外是否可以用FINDFIRST等的文件命令搜索服务器端的文件?(100)
- 开发游戏都需要些什么东西
- 请问这样的SQL语句怎么写?能不能实现呢?
- 快失业了,求职。各位帮忙提前一下!谢了
- QQ中在大厅里聊天的功能是如何实现的?ClientSocket怎样向多个选定的用户发送信息?
- #20013#22269如何转化成'中国'二字。瓦匠泥急救!!!
- 怎样才不留有DELPHI痕迹?
- 关于往文件头写标识,然后读取文件的问题
- 软件开发中遇到一个问题,请朋友们进来看一下!
这里设断点,看执行了没有,执行时clAqua的值是多少