-1
我下载TeeChart Pro v2012评估,我正在与德尔福XE2。 我运行与产品一起找到的演示exe文件,并试图重现关于甘特图的代码,更准确地说是拖放甘特图元素的部分。 我收到以下错误:“TGanttTool未声明” 我无法在代码中的任何位置找到此对象,有什么想法?德尔福XE2和TeeChart 9
我下载TeeChart Pro v2012评估,我正在与德尔福XE2。 我运行与产品一起找到的演示exe文件,并试图重现关于甘特图的代码,更准确地说是拖放甘特图元素的部分。 我收到以下错误:“TGanttTool未声明” 我无法在代码中的任何位置找到此对象,有什么想法?德尔福XE2和TeeChart 9
它似乎在我这里工作得很好。 简化鼠标拖动示例到最大限度,在运行时创建所有内容,这里是具有甘特图拖动示例的最小代码。对你起作用吗?
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)是他列表的顶部。
现在没事!我今天早上启动电脑,测试它,完全没问题,我可以拖动!但我发现另一个问题,X轴上的日期和拖动它时的对象日期根本不同步! 在X轴上的第一个日期是01/01/2013,但显示此日期的甘特图对象必须在墙外! 再次参照以下示例: Lbl1.Caption:= '日DE出道:' + DateTimeToStr(Sender.Gantt.StartValues [GanttBar])+ ' - 日期德鳍:' + DateTimeToStr(Sender.Gantt.EndValues [ GanttBar]); – 2013-02-13 11:05:14
这段代码来自GanttTool1DragBar事件。 – 2013-02-13 11:11:54
请打开一个新问题,添加相应的代码来重现问题并详细解释它 – Yeray 2013-02-14 09:27:46