2013-02-12 169 views
-1

我下载TeeChart Pro v2012评估,我正在与德尔福XE2。 我运行与产品一起找到的演示exe文件,并试图重现关于甘特图的代码,更准确地说是拖放甘特图元素的部分。 我收到以下错误:“TGanttTool未声明” 我无法在代码中的任何位置找到此对象,有什么想法?德尔福XE2和TeeChart 9

回答

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)是他列表的顶部。

+0

现在没事!我今天早上启动电脑,测试它,完全没问题,我可以拖动!但我发现另一个问题,X轴上的日期和拖动它时的对象日期根本不同步! 在X轴上的第一个日期是01/01/2013,但显示此日期的甘特图对象必须在墙外! 再次参照以下示例: Lbl1.Caption:= '日DE出道:' + DateTimeToStr(Sender.Gantt.StartValues [GanttBar])+ ' - 日期德鳍:' + DateTimeToStr(Sender.Gantt.EndValues [ GanttBar]); – 2013-02-13 11:05:14

+0

这段代码来自GanttTool1DragBar事件。 – 2013-02-13 11:11:54

+1

请打开一个新问题,添加相应的代码来重现问题并详细解释它 – Yeray 2013-02-14 09:27:46