Delphi中的TChart使用用法.docx
《Delphi中的TChart使用用法.docx》由会员分享，可在线阅读，更多相关《Delphi中的TChart使用用法.docx（11页珍藏版）》请在冰豆网上搜索。
Delphi中的TChart使用用法
Delphi中的TChart使用用法2009
Delphi中的TChart使用用法2009-08-2619:
231、TChartHelloworld放一个控件到窗体上，然后写代码加入一个折线数据序列：
var
Series:
TLineSeries;
begin
Series:
=TLineSeries.Create（Chart1）;
Series.Add（100,'头部',clRed）;
Series.Add（200,'颈部',clGreen）;
Chart1.AddSeries（Series）;
end;
这样就会生成一个简单的折线图表，要生成其它类型的数据图表，可以添加不同的数据序列
（各种图表的序列类型可以参考帮助文档）。
2.如何设置图表的标题？
TChart组件提供了Title属性可以这是图表的标题，包括标题的内容、字体、对齐方式等都可以通过Title属性
设置。
最简单的设置方式：
Chart1.Title.Text.Text:
='图表的标题';3.如何修改图表的背景颜色和整个图表的颜色？
TChart
是一个窗体控件，可以通过修改Color属性设置图表颜色，这是一种最简单的方式：
Chart1.Color:
=clWhite;
修改图表部分的背景色可以通过BackColor属性来实现：
Chart1.BackColor:
=clGreen;
此外，TChart还提供了渐变的背景支持，通过Gradient控制：
Chart1.Gradient.Visible:
=True;
Chart1.Gradient.Direction:
=gdFromTopLeft;
Chart1.Gradient.StartColor:
=clGreen;
Chart1.Gradient.EndColor:
=clYellow;4.TChart的3D效果如何控制？
TChart提供了View3D
属性，控制是否使用3D效果，View3dWalls属性控制是否显示左侧的3D墙效果5.如何不
显示图表控件生成图表？
很遗憾，TChart是一个Windows窗体控件，必须依附一个窗体或Windows控件才能使用。
如果要不显示TChart的话，可以将TChart的Visible属性设为False
来使用。
下面的例子创建了一个隐藏的TChart来生成图表：
var
Chart:
TChart;
S:
TChartSeries;
TmpFile:
string;
begin
Chart:
=TChart.Create（nil）;
try
Chart.Parent:
=Application.MainForm;
Chart.Visible:
=False;
Chart.Title.Text.Text:
='测试图表';
S:
=TBarSeries.Create（Chart）;
Chart.AddSeries（S）;
S.Title:
='嘿嘿';
S.AddXY（1,56,'一月',clGreen）;
S.AddXY（2,67,'二月',clYellow）;
S.AddXY（3,34,'三月',clBlue）;
S.AddXY（4,78,'四月',clRed）;
Chart.View3D:
=False;
Chart.BackColor:
=clWhite;
Chart.Gradient.StartColor:
=clWhite;
Chart.Gradient.EndColor:
=clWhite;
Chart.Gradient.Visible:
=True;
TmpFile:
=Application.ExeName+'.bmp';
Chart.SaveToBitmapFile（TmpFile）;
Image1.Picture.LoadFromFile（TmpFile）;
finally
Chart.Free;
end;
end;TChart使用经验小结1、问题：
通过Addxy方法给TChart添加标记（Mark）时，发现在TChart的横坐标会随着Mark而变化，后来发现通过以下方法可避免这种情况：
双击
TChart，点击Axis->toporbottom->labels，在styles中将labels的形式改为Value即可！
2、几个有用的属性：
图表上的每个点都是有索引的，就象一个数组一样，在
OnClickSeries事件中有个ValueIndex属性，该属性可以得到鼠标所点击的点的索引值（必
须将Series的Point设置为可见，鼠标点击到那个点时才可以触发该事件）。
xValue[index]、yValue[index]分别表示图表的索引为index的横纵坐标值，用这两个属性可以
读取和设置索引为index的点的值，注意：
不要用xValues和yValues，这两个属性也可以达到同样的目的，但是速度非常的慢。
因为后两个在进行操作的时候可能要遍历整个图表上的
值（个人观点）在MouseDown,MouseMove,Mouseup中，可以利用xScreentoValue（x）,yScreentoValue（y）得到鼠标当时所在点对应在图表上的横纵坐标值。
e.g......privateNowindex:
Integer;Cantuo:
boolean;........procedure
TfrmMain.Chart1ClickSeries（Sender:
TCustomChart;Series:
TChartSeries;ValueIndex:
Integer;
Button:
TMouseButton;Shift:
TShiftState;X,Y:
Integer）;begin
NowIndex:
=ValueIndex;end;procedureTfrmMain.Chart1MouseDown（Sender:
TObject;Button:
TMouseButton;Shift:
TShiftState;X,Y:
Integer）;beginCantuo:
=true;end;procedure
TfrmMain.Chart1MouseUp（Sender:
TObject;Button:
TMouseButton;Shift:
TShiftState;X,Y:
Integer）;beginCantuo:
=false;end;procedureTfrmMain.Chart1MouseMove（Sender:
TObject;Shift:
TShiftState;X,Y:
Integer）;beginifCantuothenbeginSeries1.yValue[NowIndex]:
=
Series1.yScreenToValue（y）;end;end;这里即实现了可以在图表中拖动某一个点使其在纵轴上
变化位置Tchart分析报告1Tchart分析报告1.1[概述]TChart是delphi里面一个标准的图形显示控件。
它可以静态设计（atdesigntime）也可以动态生成。
1.2[继承关系]TObjectTPersistentTComponentTControlTCustomControlTWedgetControl
TChartTCustomPanel1.3[tips]1.3.1ProVersion支持Bezier,Contour,Radar和point3D曲线1.3.2支持jpeg文件的导出1.3.3Chart中的Series可以连接到Table,Query,RemoteDataset（其他数据集）1.3.4TChart里的series的active属性可以实现对已绘制图形的显示或者隐藏1.3.5在TChart中,tchartSeries是所有具体series的父类,没有画出什么来的,用一个具体的series类来创建就可以了,比如用TLineSeries、TPieSeries、TPointSeries、TPointSeries等等都行1.3.6TTeeFunctionComponent可以实现在同一个TChart里面，一个Serries对另一个Serries的统计1.4[问题极其使用技巧]1.4.1TChart中如何实现只有Y轴的放大与缩
小功能？
设置BottomAxis或者LeftAxis的Automatic:
=false并同时设置Minimum,Maximum属性1.4.2如何固定TChart中的坐标，不使TChart中的坐标跟随Series的变化而变化？
//设置底座标withmyChart.BottomAxisdobeginAutomatic:
=false;
Minimum:
=0;LabelStyle:
=talText;end;//设置左坐标withmyChart.LeftAxisdobegin
Automatic:
=false;Minimum:
=0;Title.Angle:
=270;Title.Font:
=Self.Font;
Title.Font.Charset:
=ANSI_CHARSET;Title.Font.Name:
='@宋体';Grid.Visible:
=False;
end;//设置右坐标withmyChart.RightAxisdobeginAutomatic:
=false;
Title.Font:
=Self.Font;Title.Font.Charset:
=ANSI_CHARSET;Title.Font.Name:
='@宋体';Title.Caption:
='累计百分比（%）';Maximum:
=100;Minimum:
=0;end;1.4.3
如何删除一个图形中的一个点？
使用Series的delete方法1.4.4如何修改一个点的X或者Y值？
LineSeries1.YValue[3]:
=27.1;{InBubble
Series}BubbleSeries1.RadiusValues.Value[8]:
=8.1;{InPie
Series}PieSeries1.PieValues.Value[3]:
=111;1.4.5如果横坐标是时间（日期），
如何进行设置？
{First,youneedtosettheDateTimepropertytoTrueinthedesiredXand/orY
valueslist.}LineSeries1.XValues.DateTime:
=True;{Second,usethesameabovedescribed
methods,butgivethevaluesasDate,TimeorDateTime
values}LineSeries1.AddXY（EncodeDate（1996,1,23）,25.4,'Barcelona',clGreen）;1.4.6
如何在chart中画出的曲线某个点上标记出该点的值？
Series.Marks.Visible:
=true;Series.Marks.Style:
=smsValue;1.4.7如何设置横轴或者纵轴的增长率？
Chart.BottomAxis.Increment:
=
DataTimeStep[dtOneHour];Chart.RightAxis.Increment:
=1000;1.4.8如何对图象进行缩放？
TChart的ZoomRect或者ZoomPercent方法（Pie图可能不支持缩放）1.5[TChart可以绘制的图形]1.5.1Line（TLineSeries）1.5.2FastLine
（TFastLineSeries）相对Line来说，它损耗了某些属性从而来实现快速绘制1.5.3Bar（TBarSeries）1.5.4Horizontalbar（THorizBarSeries）1.5.5Area
（TAreaSeries）1.5.6Point（TPointSeries）1.5.7Pie（TPieSeries）1.5.8
Arrow（TArrowSeries）1.5.9Bubble（TBubbleSeries）1.5.10Gantt
（TGanttSeries）1.5.11Sharp（TChartShape）1.6[TChart的实时绘制]实时绘制对机器性能要求比较高，因此我们在编程的时候要注意下面几个方面：
ü使用2D图形ü是Chart尽可能包含少的点ü如果需要，可以移除（remove）chart的legend（?
?
?
?
?
）和Titleü使用默认的字体和字体大小ü使用FastLineSeriesü使用实体（solid）画笔和画刷格式ü尽量避免使用圆形和环行bar样式ü不要使用背景图片和渐变效果样式ü把Chart的BevelInner和BevelOUter属性设置为bcNoneü如果需要，把TChart的AxisVisible属性设置为Falseü把BufferedDisplay设置为false可以加速chart的重绘1.7[Scrolling]TChart有4中scroll选择（AllowPanning属性），分别是不允许Scroll（pmNone）;水平Scroll（pmHorizontal）;垂直Scroll（pmVertical）;水平和垂直Scroll（pmBoth）ProcedureScroll（ConstOffset:
Double;CheckLimits:
Boolean）;例子如下：
Chart1.BottomAxis.Scroll（1000,
True）;这段代码也等同于WithChart1.BottomAxisdoBeginAutomatic:
=false;
SetMinMax（Minimum+1000,Maximum+1000）;End;1.8[TChart中的全局变量]1.9üTeeScrollMouseButton:
=mbRight;设置鼠标右键为TChart滚动键（默认）üTeeScrollKeyShift:
=[ssCtrl];要按住Control键才可以使Scroll滚动1.9[TChartSerries使用技巧]1.9.1运行时候创建一个Serries,三种方法：
1．VarMySeries:
TBarSeries;MySeries:
=
TBarSeries.Create（Self）;MySeries.ParentChart:
=Chart1;
2．Chart1.AddSeries（TBarSeries.Create（Self））;3．VarMyClass:
TChartSeriesClass;MyClass:
=TBarSeries;Chart1.AddSeries（MyClass.Create（Self））;1.9.2
获得TChart中的Serries数组，也有三种方法1．MySeries:
=Chart1.SeriesList
[0]2．MySeries:
=Chart1.Series[0]3．MySeries:
=Chart1[0]1.9.3SerriesCount
属性获得SeriesList中Series的个数1.9.4隐藏TChart中的Series有三种方法，但是效果不等价1．Series1.Active:
=False;仅仅隐藏，当设置为true的时候还可以显示出来2．Series1.ParentChart:
=nil；隐藏，重新设置ParentChart为TChart时候可以显示3．Series1.Free;删除了Series.不可以恢复1.9.5TChart中的数据排序WithSeries1dobeginYValues.Order:
=loAscending;YValues.Sort;Repaint;end;Ø
定位一个点（Loacateapoint）Series1.XValues.Locate（123）;ØXValue和YValue都拥有的属性Total,TotalABS,MaxValue,MinValueteechart笔记（Delphi）来自：
bobo日期：
2006-12-423:
09:
07全文阅读：
loading...分类：
学习札记1.series的方法1.1ColorRange设定一定范围的点和线的颜色。
procedureColorRange（AValueList:
TChartValueList;Const
FromValue,ToValue:
Double;AColor:
TColor）;其中：
TheTChartValueListcomponentisthe
containerofpointvalues.EachSeriescomponenthasoneormorevalueslists.The
XValuesandYValuespropertiesareTChartValueListcomponents.可以是XValues或YValues;FromValue,ToValue是范围。
AColor是点的颜色。
UnitTeEngineDescriptionThis
methodwillchangetheColorofaspecifiedrangeofpoints.TheFromValueandToValue
parametersarethebeginningandendofthespecifiedAValueListrange.AValueListcanbeany
SeriesValueListsuchas:
XValues,YValues,etc.对某一特定的点:
可以用series.valuecolor[index]属性propertyValueColor[Index:
Integer]:
TColor;UsetheValueColor
propertytogetorsettheColorofapointataparticularposition.Indexgivesthepositionofthe
point,where0isthefirst,1isthesecond,andsoon.不过这两个方法都会导致线的颜色也会改
变：
改变的模式是若下一点出界，则从此点到下一点的连线的颜色变为指定点的颜色。
用这种方法可以改变各个点的形状，result即是具体点的形状。
functionTForm1.Series1GetPointerStyle（Sender:
TChartSeries;ValueIndex:
Integer）:
TSeriesPointerStyle;beginifValueIndexmod2=0thenresult:
=psRectangle
elseresult:
=psTriangle;end;1.2CalcXPosValue把某一轴X/Y轴的值，转化为窗体的像素值
（整型）。
CalcXPosValue（ConstValue:
Double）:
Integer;UnitTeEngineDescriptionReturnsthe
pixelScreenHorizontalcoordinateofthespecifiedValue.forexample：
procedureTForm1.Chart1AfterDraw（Sender:
TObject）;vartmp:
Integer;begin
tmp:
=Series1.CalcPosValue（123）;withChart1.CanvasdoRectangle（tmp-5,tmp-5,tmp
5,tmp5）;end;1.3画水平直线Chart1AfterDraw的时间中ProcedureTForm1.DBChart1AfterDraw（Sender:
TObject）;begindrawLimits（ChrtNum,width:
integer;Value:
Double;color:
TColor）;end;drawLimits（ChrtNum,width:
integer;Value:
Double;color:
TColor）;varPixValue:
integer;beginwithdbcht1.CanvasdobeginPixValue:
=
seriesx.CalcYPosValue（Value）;if（PixValue（PixValue>dbcht1.ChartRect.Bottom）then//判断是否已经超出dbcht1.ChartRect的范围。
Pen.Color:
=dbcht1.ColorelsePen.Color:
=color;Pen.Width:
=width;
MoveTo（dbcht1.ChartRect.Left,PixValue）;LineTo（dbcht1.ChartRect.Right,PixValue）;
end;end;1.4通过函数function来画直线/各种自定义曲线；series|dataSource|function.在objecttreeView对象观察器中series1|TeeFunction1的OnCalculate事件中添加公式procedureTForm1.TeeFunction1Calculate（Sender:
TCustomTeeFunction;constx:
Double;vary:
Double）;beginy:
=50;//y:
=Sin（x/10）;end;1.5取消chart的网格在chart|axis|Ticks|grid…中操作，此操作针对某一轴而言，如leftaxis，对于bottomaxis要选择它再操作。
1.6marktips显示数据标签的chart工具。
设定自定义的标签的方法：
设定一个单元局部变量MarkText:
string在chart的onMouseMove中添加事件。
procedureTfrmVChart.dbcht1MouseMove（Sender:
TObject;Shift:
TShiftState;X,Y:
Integer）;vartmp:
Integer;begintmp:
=SeriesX.Clicked（x,y）;//返回该点的所在的series上序号，从0开始。
iftmp=-1
升级会员 