有关窗体颜色的简单问题。 改变了窗体的背景颜色,其上的pagecontrol控件颜色随之改变但是pagecontrol上的tabsheet的标签颜色却仍然是灰色如何解决? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 pagecontrol.OwnerDraw := True; hhaibin(小海)按照你的方法,颜色确实变了但是标签上的文字却看不到了。 在PAGECONTROL的ONDRAWTAB事件中写入如下代码:procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);begin pagecontrol1.Canvas.Font.Color:=cldefault; pagecontrol1.Canvas.TextOut(rect.Left+1,rect.Top+2,pagecontrol1.Pages[TabIndex].Caption);end; 借光我在游戏中弹出自己的窗体,但是颜色变了怎么能恢复成WINDOWS上的原来的颜色????????? 求大牛给个思路!!! 请问哪个打包工具可以检测提示用户关闭正在运行的软件? 又是存储过程调用~~~~~~~~~~~~~~~~~在线等~~~ 大家都用什么软件做CHM格式帮助文件 dbgrid超难问题求教!!!!!!! 求邮件程序源代码!! 为什么Delphi在我的机子上运行不了,而在我朋友的机子上可以呢? 有谁会做桌面宠物啊 请问怎么知道使用一个API函数时要在 USES 中加入相应该的内容呢? 关于DELphi SCROOL box 滚轴问题 如何判断对DBGRID已进行了修改? 从数据库中提出文件装入图形中老出错,各位大哥帮我看看程序
按照你的方法,颜色确实变了
但是标签上的文字却看不到了。
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
pagecontrol1.Canvas.Font.Color:=cldefault;
pagecontrol1.Canvas.TextOut(rect.Left+1,rect.Top+2,pagecontrol1.Pages[TabIndex].Caption);
end;