德尔福 XE2 和 TeeChart 9

Question

我下载 TeeChart Pro v2012 评估版，我正在使用 Delphi XE2。 我运行我在产品中找到的演示 exe，并尝试重现有关甘特图的代码，更准确地说是拖放甘特图元素的部分。 我收到以下错误：“未声明 TGanttTool” 我在代码中的任何地方都找不到这个对象，知道吗？

Answer 1

这里对我来说似乎工作得很好。 最大限度地简化鼠标拖动示例，在运行时创建所有内容，这里是具有甘特图拖动示例的最少代码。对你有用吗？

uses VCLTee.Chart, VCLTee.GanttCh, VCLTee.TeeGanttTool;

var Chart1 : TChart;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1:=TChart.Create(Self);
  Chart1.Parent:=Self;
  Chart1.Align:=alClient;

  Chart1.View3D:=False;
  Chart1.Zoom.Allow:=False;

  with Chart1.AddSeries(TGanttSeries) as TGanttSeries do
  begin
    FillSampleValues(5);
    Marks.Visible:=True;
  end;

  (Chart1.Tools.Add(TGanttTool) as TGanttTool).Series:=Chart1[0];
end;

也许问题出在 IDE 中的路径上。请检查库/搜索路径中是否存在错误的引用。并检查正确的（参考 TeeChart）是否在列表的顶部。