如何改变菜单栏和TPageControl的颜色?(100分)

  • 主题发起人 主题发起人 ly_8
  • 开始时间 开始时间
L

ly_8

Unregistered / Unconfirmed
GUEST, unregistred user!
我想给自己的程序配点好看的颜色,却发现TMainMenu控件没有改变颜色的属性,请问有没
有办法改变窗口菜单栏的颜色,另外菜单下拉后的颜色是否也能改变?
我还有到一个TPageControl,想改变一下它的页头的背景色也找不到属性,另外改它的FONT
属性时却奇怪的发现页头字符可以改变为粗体加下划线什么的,就是不能变颜色,请问高手
有什么好办法吗?
 
2
把PageControl的OwnerDraw设为True ,在onDrawTab事件中自己写

procedure TForm1.pgcMainDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var B:TBitmap;
begin
B:=TBitmap.Create;
Control.Canvas.Brush.Color:=$00CEE8CA;
Control.Canvas.FillRect(Rect);
Control.Canvas.Font.Color:=clBlack;
Control.Canvas.Font.Charset:=GB2312_CHARSET;
Control.Canvas.Font.Size:=9;
Control.Canvas.Font.Name:='宋体';
Control.Canvas.TextOut(Rect.Left+20,Rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
end;
 
改菜单的颜色需要设置菜单为owerdraw,然后在ondrawitem中自己画.
要改变Tpagecontrol的颜色,只需设置brush.color:=你想要的颜色就可以了.
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
941
DelphiTeacher的专栏
D
D
回复
0
查看
880
DelphiTeacher的专栏
D
后退
顶部