示例"/>
程式畫面:
代碼如下:
unit UnitChart;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;typeTFormChart = 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;varFormChart: TFormChart;implementation{$R *.dfm} varXTemp : Integer;
更多推荐
Delphi 中 Chart的 應用示例
>www.elefans.com
编程频道|电子爱好者 - 技术资讯及电子产品介绍!
发布评论