delphi中的tchart删除每个条上的文本答案

【问题标题】：tchart in delphi remove text over each bardelphi中的tchart删除每个条上的文本
【发布时间】：2017-01-07 05:39:49
【问题描述】：

我在 Delphi 中使用 tchart。它是一个条形图，要添加到每个系列，它需要 3 个参数，如下所示：

chart1.series[0].add(123,'annoying',clred);

中间参数，在本例中，单词“烦人”导致该字符串显示在条形上方。

有没有办法在不出现字符串的情况下创建条形图？显而易见的事情是使用一个空值，例如 ...add(123,'',clred)，但它仍然在条形图上绘制它，每个系列中看起来像随机数。

【问题讨论】：

我无法重现在标记中显示随机数的问题。你能安排一个mcve吗？

标签： delphi teechart

【解决方案1】：

TBarSeries.Add 具有单参数重载版本

无论如何，你可以关闭字符串标签的显示：

在图表编辑器中，在对象检查器中，在代码中：Series-Marks-Visible

//Series1-General-BottomAxis-DataTime is set
var
  i: integer;
begin
  Series1.Marks.Visible := false;
  for i := -2 to 0 do
     Series1.AddXY(Now + 3 * i, i + 3);

【讨论】：

我试了一下，栏上的标签消失了。我取消选中它并再次尝试，如上面所报告的 ..series[0].add(amt,' ',clred) 并且随机数消失了，它现在显示变量“amt”的数值。但现在我需要在条形下方添加一个类似的标签，以 mm/dd/yy 格式表示日期的字符串。
继续。 .... 我在 steema.com 上找不到任何参考资料。我不想尝试在图表编辑器中执行此操作，因为直到运行时才知道日期，因为它正在从数据库中提取最后 5 次加薪金额和日期。我正在寻找类似于 chart1[0].bottom_label := raise_date 的东西，但没有这样的属性，那么，如何在运行时使用 Delphi 代码设置这个底部标签字符串？
我找到了一种填充底部标签的方法，它可以工作，但这样做，它也会覆盖顶部标签，用底部显示的相同日期值擦除加薪金额。
我不确定我是否完全理解您的需求。看例子
如果你在一个新项目的Delphi表单上放一个Tchart，添加1个系列的类型Bar，并添加2个按钮，我想你会看到问题。