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