Lazarus TAChart在运行时添加TChartToolSet和TZoomDragTool

Question

我有麻烦弄清楚如何添加TZoomDragTool到TChart。我知道TChart已经内置了对缩放的支持，但是我想同时禁用平移(用右键拖动)。有一个属性可以禁用缩放，但没有直接的方法来禁用平移。

我发现的是，如果我添加一个TChartToolSet到图表，它将禁用内置的缩放和平移功能。如果我可以添加一个TZoomDragTool到TChartToolSet，那么它会做我想要的。如果我在设计时这样做，效果会很好，但我不知道如何在运行时这样做。

如果有人能告诉我怎么做，我会很感激的。

我有一个小代码片段，如果我运行它，它会给我错误。

TForm1 = class(TForm)
  Button1: TButton;
  m_chart: TChart;
  m_toolset: TChartToolset;
  m_zoom: TZoomDragTool;  
  procedure Button1Click(Sender: TObject);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin 
  m_chart:= TChart.Create(self);  
  with m_chart do begin
    autosize:= False;
    left:= 10;
    top:= 40;
    width:= 300;
    height:= 150;
    parent:= Self;
    visible:= True;
  end;
  m_toolset:= TChartToolset.Create(m_chart); //is the owner correct?
  m_zoom:= TZoomDragTool.Create(m_toolset);  //is the owner correct?
  m_toolset.Tools.Add(@m_zoom); //is this correct? 
  m_chart.Toolset:= m_toolset; //is this the way?
                               //or something like 
                               //m_chart.Toolset.InsertComponent(m_toolset);
                               //both of them crash 
end;

Answer 1

TAChart有一个有点奇怪的方式来添加一个TChartTool(这是一个TIndexedComponent)到TChartToolset。TChartToolset有TIndexedComponentList、Tools，其作用类似于一个集合，这里遇到困难的人的所有代码只是通过调用Add方法将TIndexedComponent添加到TIndexedComponentList中。然而，这并不能完成所有的工作。相反，TChartTool有一个公共属性Toolset，您必须将其分配给添加到表单中的TChartToolset组件。

这是正确的代码:

  m_toolset:= TChartToolset.Create(self); 
    // since ChartTools can be used by several charts it is safer to have the ChartToolset be owned by the form
  m_zoom:= TZoomDragTool.Create(m_toolset); 
  m_zoom.ToolSet := m_toolset;

除了ChartTools，运行时创建的charttransforms也需要相同的代码。