深入浅出CChart 每日一课——快乐高四第二十八课 任我独行，ActiveX控件明教光明顶之Delphi篇

Delphi，你听说过吗？

不说了，这又是一个悲伤的故事，这个故事只有像笨笨这么有情怀的人才听得懂，哈哈。当年，四大编译器厂商(Borland，Watcom，MicroSoft，Symantec)混战，其情节波荡起伏，令人扼腕叹息。详情请见《Borland传奇》。

本节课采用Delphi7。虽然目前Delphi仍然活着，并且转型为跨平台的大型开发工具，同一套代码在Windows，linux，MacOS上都能运行，甚至支持Android，但是，笨笨仍然放不下和VC6同时代的经典之作Delphi7。

当然，说实话，在Delphi平台上，用CChart的必要性并不大，因为Delphi自带功能强大的TeeChart。

但由于CChart的可拓展性强，易于定制，这就可以想法实现一些TeeChart不支持的功能，满足用户的特殊需求。

下面开始。

第一步，打开Delphi7，会自动建立一个名为Form1的窗体。

第二步，导入PlotCom控件，如图。

导入完成后，在ActiveX工具条上会增加PlotCom图标。

第三步，在Form1窗体上放置一个PlotCom控件，并调整大小。

第四步，通过Object Inspector添加Form1的OnCreate函数。

代码如下。

procedure TForm1.FormCreate(Sender: TObject);
begin
  PlotCtrl1.SetType(1);
  PlotCtrl1.Title := '标题';
  PlotCtrl1.AddPie(3);
  PlotCtrl1.AddPie(2);
  PlotCtrl1.AddPie(1);
  PlotCtrl1.AddPie(6);
  PlotCtrl1.AddPie(7);

  PlotCtrl1.SetPieTitle('张', 0);
  PlotCtrl1.SetPieTitle('王', 1);
  PlotCtrl1.SetPieTitle('李', 2);
  PlotCtrl1.SetPieTitle('赵', 3);
  PlotCtrl1.SetPieTitle('陈', 4);
end;

最终效果如图。

好了，Delphi的介绍到此结束。