使用delphi制作统计图表，delphi PageControl选项卡标题变色

使用delphi制作统计图表

使用Data Controls下的DBChart控件（Name设为dbcht1）双击点击Add添加你要的类型

在Delphi中 首先进行查询，然后添加

dbcht1.Series[0].XLabelsSource:=’字段名’;

dbcht1.Series[0].YValues.ValueSource:='字段名';

dbcht1.Series[0].DataSource:=qry_1;

dbcht1.Title.Text.SetText('图表的名称');

即可以图表的形式进行数据显示

delphi PageControl选项卡标题变色

1）将PageControl的OwnerDraw属性设置为True

2）在PageControl的OnDrawTab事件中加入如下代码：

if Active then

 begin

   pgc_test.Canvas.Font.Color:=clBlue; //对应标题变蓝

   pgc_test.Canvas.Font.Style:=[fsBold]; //对应标题加粗

 end;

 pgc_test.Canvas.TextOut(Rect.Left+4,Rect.Top+4,pgc_test.Pages[TabIndex].Caption);//输出子选项卡的标题内容