我下载TeeChart Pro v2012 Evaluation,我正在使用Delphi XE2。我运行了我在产品中找到的演示exe,并试图重现有关甘特图的代码,更确切地说,是要拖放甘特图元素的部分。我得到以下错误:"TGantTool未声明"我在代码中找不到这个对象,知道吗?
这对我来说似乎很好。最大限度地简化鼠标拖动示例,在运行时创建所有内容,这是Gantt拖动示例的最小代码。它对你有用吗?
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)。