Das hier funktioniert bei mir:
Delphi-Quellcode:
procedure TDemoForm.ChartGetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
if (ValueIndex in [0..11]) and (Sender = Sender.ParentChart.BottomAxis) then
LabelText := ShortMonthNames[Trunc(Series.XValue[ValueIndex])];
end;
Series ist die einzige bzw. relevante Serie im Chart. Den Namen musst du natürlich an deine Verhältnisse anpassen.
Freundliche Grüße