Delphi 2007中为TDBChart图例添加垂直滚动条的解决方案咨询

刚好我之前在Delphi 2007+TeeChart 2011的环境下解决过这个问题——自带的TDBChart图例确实没有直接开启滚动条的选项，但有两种实用的实现方式，亲测可行：

方法1：将图例嵌入滚动容器 #

这种方式比较直观，利用TScrollBox来承载图例，自动生成滚动条：

• 先在窗体上拖放一个TScrollBox，调整它的位置和大小，让它刚好覆盖你想要显示图例的区域（比如和图表右侧对齐）。
• 在代码里设置图例的自定义位置，并将其父容器设为ScrollBox：

  // 初始化设置（可放在FormCreate里）
  DBChart1.Legend.CustomPosition := True;
  DBChart1.Legend.Parent := ScrollBox1;
  DBChart1.Legend.Left := 0;
  DBChart1.Legend.Top := 0;
  DBChart1.Legend.Width := ScrollBox1.ClientWidth;
  

• 然后在图表的OnAfterDraw事件里更新图例高度，让ScrollBox自动适配并显示滚动条：

  procedure TForm1.DBChart1AfterDraw(Sender: TObject);
  begin
    // 计算图例的实际总高度
    DBChart1.Legend.Height := DBChart1.Legend.CalcHeight;
    // 设置滚动条的范围
    ScrollBox1.VertScrollBar.Range := DBChart1.Legend.Height;
  end;
  

当图例项过多超出ScrollBox的可视高度时，垂直滚动条就会自动出现，拖动即可查看所有图例内容。

方法2：手动控制图例偏移量结合TScrollBar #

这种方式更灵活，适合需要自定义滚动条样式或位置的场景：

• 在窗体上添加一个TScrollBar，设置它的Align属性为alRight，和TDBChart的右侧对齐（或者根据需求调整位置）。
• 先开启图例的自定义位置：

  // 初始化设置
  DBChart1.Legend.CustomPosition := True;
  DBChart1.Legend.Alignment := laRight; // 保持图例默认的右侧位置
  

• 在滚动条的OnChange事件里，通过调整图例的Top属性来实现滚动效果：

  procedure TForm1.ScrollBar1Change(Sender: TObject);
  begin
    // 滚动条位置反向映射为图例的偏移量
    DBChart1.Legend.Top := -ScrollBar1.Position;
    DBChart1.Repaint;
  end;
  

• 最后在图表的OnAfterDraw事件里计算滚动条的最大范围，控制其显示状态：

  procedure TForm1.DBChart1AfterDraw(Sender: TObject);
  var
    LegendTotalHeight: Integer;
  begin
    LegendTotalHeight := DBChart1.Legend.CalcHeight;
    // 当图例总高度超过图表可视高度时显示滚动条
    if LegendTotalHeight > DBChart1.ClientHeight then
    begin
      ScrollBar1.Max := LegendTotalHeight - DBChart1.ClientHeight;
      ScrollBar1.Visible := True;
    end
    else
    begin
      ScrollBar1.Visible := False;
      ScrollBar1.Position := 0;
      DBChart1.Legend.Top := 0;
    end;
  end;
  

额外注意事项 #

• 当图表数据更新（比如数据集刷新、系列增减）后，记得手动调用DBChart1.Repaint，触发OnAfterDraw事件来更新滚动条的范围。
• CalcHeight方法是TeeChart内置的，会准确计算所有图例项的总高度，包括多行显示的情况，不用担心计算误差。

内容的提问来源于stack exchange，提问作者mimou_2009