Delphi 中 Chart的 應用示例 -- 模擬畫K線圖

程式畫面:

代碼如下:

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;