Vielen Dank schonmal!
Habe das jetzt wie folgt programmiert:
Delphi-Quellcode:
implementation
{$R *.dfm}
procedure TForm14.Chart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries;
ValueIndex: Integer; var LabelText: string);
begin
if Sender = TChartAxis(Chart1.DepthAxis) then
case ValueIndex of
0: LabelText := 'Serie 1';
1: LabelText := 'Serie 2';
2: LabelText := 'Serie 3';
else LabelText := '???';
end;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
chart1.DepthAxis.LabelStyle:=taltext;
chart1.Series[0].Add(10,'1',clred);
chart1.Series[1].Add(20,'2',clblue);
chart1.Series[2].Add(20,'3',clgreen);
end;
Die Ausgabe sieht dann aus wie im BIld zu sehen. Also ohne
die gewünschten Beschriftungen.
Habe ich etwas vergessen?