程式畫面: 代碼如下: unit UnitChart; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls; type TFormChart = class(TForm) StatusBar1: TStatusBar; cht1: TChart; LineSeiresOne: TLineSeries; LineSeriesTwo: TLineSeries; btn1: TButton; tmr1: TTimer; procedure FormCreate(Sender: TObject); procedure cht1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries; ValueIndex: Integer; var LabelText: String); procedure btn1Click(Sender: TObject); procedure tmr1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormChart: TFormChart; implementation {$R *.dfm} var XTemp : Integer;