如何修改菜单的颜色？

Ethan 2001-07-21 10:11:46

如何修改菜单的颜色？

...全文

164 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

whitelion 2001-08-04

打赏
举报

学习

playmud 2001-08-04

打赏
举报

Wingsun 2001-08-03

打赏
举报

看一看精华区吧！

zfming 2001-08-03

打赏
举报

嘻,刚才看错了,HEROIN(HEROIN)请给我上面的e_mail发一份吧,请在http://www.csdn.net/expert/topic/220/220558.shtm登录一下,以便解决后给您分数

zfming 2001-08-03

打赏
举报

Ethan
我帮你推了一下贴子，有答案要告诉我呀！
zfming@sina.com

gqxs 2001-08-03

打赏
举报

zfming 2001-08-03

打赏
举报

HEROIN(HEROIN)　大侠也给我一份呀！！

土豆 2001-08-03

打赏
举报

http://www.csdn.net/expert/Topic/85/85796.shtm

zfming 2001-08-02

打赏
举报

我也急切想知到，请大家多多帮忙呀！另有高分相送！
上面的放法不能使主菜单行右边部分改变颜色，我查遍了delphi贴子，说是要用toolbar，我用后主菜单行解决了，但是子菜单不知为什么用toolbutton调出后不访问DrawItem，（直接用菜单栏可以访问），WHY？？？

AutoAsm 2001-08-02

打赏
举报

自画，或者把菜单用TToolBar来处理，

shally5 2001-08-02

打赏
举报

才8点啊！

「已注销」 2001-08-02

打赏
举报

HEROIN 2001-08-02

打赏
举报

给我你的e_mail

aningstar 2001-07-21

打赏
举报

给你贴一段delphi代码
首先将菜单的ownerdraw属性设置为true;然后在菜单项的drawitem中写入代码即可。
procedure TForm1.New1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
acanvas.Font.Color:=clred;
if selected then
SetBkColor(acanvas.handle,clgreen)
else
setBkcolor(acanvas.handle,clblue);
acanvas.TextRect(arect,0,0,new1.caption);
end;