Delphi中的TChart使用用法

1、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的点的值，注意：不要用xValues和yValues，这两个属性也可以达到同样的目的，但是速度非常的慢。因为后两个在进行操作的时候可能要遍历整个图表上的值（个人观点）
  
  
  
  
  
  

   
   
         在MouseDown,MouseMove,Mouseup中，可以利用xScreentoValue(x),yScreentoValue(y)得到鼠标当时所在点对应在图表上的横纵坐标值。
  
  
  
  
  
  

   
   
   e.g......
  
  
  
  
  
  

   
   
   private
  Nowindex:Integer;
  Cantuo:boolean;
  
  
  
  
  
  

   
   
   ........
  
  
  
  
  
  

   
   
   procedure TfrmMain.Chart1ClickSeries(Sender: TCustomChart;
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  NowIndex:=ValueIndex;
end;
  
  
  
  
  
  

   
   
   procedure TfrmMain.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Cantuo:=true;
  
  
  
  
  
  

   
   
   end;
  
  
  
  
  
  

   
   
   procedure TfrmMain.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Cantuo:=false;
end;
  
  
  
  
  
  

   
   
   procedure TfrmMain.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Cantuo then
begin
  Series1.yValue[NowIndex]:=  Series1.yScreenToValue(y) ;
end;
end;
  
  
  
  
  
  

   
   
   这里即实现了可以在图表中拖动某一个点使其在纵轴上变化位置
  
  
  
  
  
  

   
   
   Tchart分析报告
  
  
  
  
  
  

   
   
   1     Tchart分析报告
  
  
  
  
  
  

   
   
   1.1      [概述]
  
  
  
  
  
  

   
   
      TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。
  
  
  
  
  
  

   
   
   1.2      [继承关系]    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TObject
      
      
      
    
   
  
  
  
  

   
   
    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TPersistent
      
      
      
    
   
  
  
  
  

   
   
    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TComponent
      
      
      
    
   
  
  
  
  

   
   
    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TControl
      
      
      
    
   
  
  
  
  

   
   
    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TCustomControl
      
      
      
    
   
  
  
  
  

   
   
    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TWedgetControl
      
      
      
    
   
  
  
  
  

   
   
    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TChart
      
      
      
    
   
  
  
  
  

   
   
    
  
  
  
  
  
  

   

    

     

      
      
      

       
       
       TCustomPanel
      
      
      
    
   
  
  
  
  

   
   
   1.3      [tips]
  
  
  
  
  
  

   
   
   1.3.1            Pro Version支持Bezier , Contour , Radar 和  point3D 曲线
  
  
  
  
  
  

   
   
   1.3.2            支持jpeg文件的导出
  
  
  
  
  
  

   
   
   1.3.3            Chart中的Series 可以连接到Table , Query , RemoteDataset(其他数据集)
  
  
  
  
  
  

   
   
   1.3.4            TChart里的series的active属性可以实现对已绘制图形的显示或者隐藏
  
  
  
  
  
  

   
   
   1.3.5            在TChart中, tchartSeries是所有具体series的父类,没有画出什么来的,用一个具体的series类来创建就可以了,比如用TLineSeries、TPieSeries、 TPointSeries、 TPointSeries等等都行
  
  
  
  
  
  

   
   
   1.3.6            TTeeFunction Component可以实现在同一个TChart里面，一个Serries对另一个Serries的统计
  
  
  
  
  
  

   
   
    
  
  
  
  
  
  

   
   
   1.4      [问题极其使用技巧]