Der Trick ist das
OnGetMarkText
-Event der
TLineSeries
! Dort legst du den Text für das Mark fest. Soll es nicht zu sehen sein, nimmst du einfach einen leeren String:
Delphi-Quellcode:
procedure TForm1.Series1GetMarkText(
Sender: TChartSeries;
ValueIndex: Integer;
var MarkText: string
);
begin
case ValueIndex of
5: MarkText := 'Hallo';
12: MarkText := 'Welt';
19: MarkText := 'Bohnen und Speck';
else
MarkText := EmptyStr;
end;
end;
Ergebnis im Anhang.