【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:ChartUnit.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit ChartUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, TeeFunci, Series, ExtCtrls, TeeProcs, Chart;
type
TChartForm = class(TForm)
FourCCChart: TChart;
Series1: TBarSeries;
Series2: TBarSeries;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ChartForm: TChartForm;
implementation
uses MainUnit;
{$R *.dfm}
procedure TChartForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TextForm.N3.Checked:=False;
end;
end.
上一篇:
ChartSaleUnit.pas
下一篇:
临床前药物安全性评价中毒性病理学新技术的应用