TeeChart效果图

		{======================uni1.pas====================}
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, TeeFunci;
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TBarSeries;
    Series2: TLineSeries;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.Series[0].Add(16.9373,'jan');
Chart1.Series[0].Add(11.2401,'feb');
Chart1.Series[0].Add(16.9820,'mar');
Chart1.Series[0].Add(15.1504,'apr');
Chart1.Series[0].Add(14.3373,'may');
Chart1.Series[0].Add(11.4544,'jun');
Chart1.Series[0].Add(15.8801,'jul');
Chart1.Series[0].Add(14.3426,'aug');
Chart1.Series[0].Add(10.2819,'sep');
Chart1.Series[0].Add(15.1078,'oct');
Chart1.Series[0].Add(19.4991,'nov');
Chart1.Series[0].Add(15.7960,'dec');
Chart1.Series[1].Add(9.7475);
Chart1.Series[1].Add(11.9688);
Chart1.Series[1].Add(11.3689);
Chart1.Series[1].Add(11.0869);
Chart1.Series[1].Add(9.1403);
Chart1.Series[1].Add(11.9161);
Chart1.Series[1].Add(9.7637);
Chart1.Series[1].Add(9.0079);
Chart1.Series[1].Add(9.4344);
Chart1.Series[1].Add(10.9673);
Chart1.Series[1].Add(11.4321);
Chart1.Series[1].Add(10.6315);  
end; 
end.
{======================uni1.dfm====================}
object Form1: TForm1
  Left = 184
  Top = 10
  Width = 943
  Height = 622
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 123
    Top = 44
    Width = 681
    Height = 488
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Gradient.Direction = gdFromTopLeft
    Gradient.EndColor = 16748174
    Gradient.Visible = True
    Title.AdjustFrame = False
    Title.Text.Strings = (
      'TChart')
    Title.Visible = False
    LeftAxis.Axis.Color = -1
    LeftAxis.Grid.Style = psSolid
    LeftAxis.LabelsSeparation = 30
    LeftAxis.TickInnerLength = 2
    LeftAxis.Ticks.Color = -1
    LeftAxis.TicksInner.Color = -1
    RightAxis.Labels = False
    RightAxis.Visible = False
    ScaleLastPage = False
    View3D = False
    BevelOuter = bvNone
    BevelWidth = 0
    Color = 8421631
    TabOrder = 0
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = 8421631
      Title = '月图'
      BarPen.Style = psDashDotDot
      BarPen.SmallDots = True
      Dark3D = False
      MultiBar = mbNone
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series2: TLineSeries
      Marks.ArrowLength = 8
      Marks.Clip = True
      Marks.Style = smsValue
      Marks.Visible = False
      SeriesColor = clGreen
      Title = '增长图'
      Pointer.Brush.Color = clGreen
      Pointer.HorizSize = 6
      Pointer.InflateMargins = True
      Pointer.Pen.Color = 65408
      Pointer.Pen.Style = psDash
      Pointer.Style = psStar
      Pointer.VertSize = 6
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
end