Delphi中的TChart使用用法2009.doc

Delphi中的TChart使用用法2009-08-26 19:231、TChart Hello world放一个控件到窗体上，然后写代码加入一个折线数据序列： 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- top or bottom -labels，在styles中将labels的形式改为Value即可！2、几个有用的属性： 图表上的每个点都是有索引的，就象一个数组一样，在OnClickSeries事件中有个ValueIndex属性，该属性可以得到鼠标所点击的点的索引值（必须将Series的Point设置为可见，鼠标点击到那个点时才可以触发该事件）。 xValue[index]、yValue[index]分别表示图表的索引为index的横纵坐标值，用这两个属性可以读取和设置索引为index的点的值，注意：不要用x