procedure TStatProbSeries.OnGetLabel(Sender: TChartAxis; Series: TChartSeries;
  ValueIndex: Integer; var LabelText: String);
var tmp : Double;
    tmpSt : String;
begin
    if (Sender = GetVertAxis) and (FProbSeriesType <> stQQSeries) then
    try
      tmpSt := LabelText;
      While Pos(ThousandSeparator,tmpSt)>0 do System.Delete(tmpSt,Pos(ThousandSeparator,tmpSt),1);
      tmp:=StrToFloat(tmpSt);
      Case FProbSeriesType of
        stNormalSeries : tmp := NormalCDF(tmp,0,1);
        stWeibullSeries : tmp := 1.0 - 1.0/(Exp(Exp(tmp)));
      end;
      LabelText:=FormatFloat(Sender.AxisValuesFormat,tmp);
    except
      on EConvertError do ;
    end;
end;

property LabelsSeparation: Integer;    Unit
TeEngine    Description
Default Value: 10    The LabelsSeparation property specifies the percent amount of minimum distance between Axis Labels.    Setting it to "0" zero makes TChartAxis skip calculating overlapping labels. (No clipping is performed).    Labels visibility depends also on LabelsFont size, LabelsAngle and Axis Increment properties.

procedure TfrmQQPlot.Recalc;
begin
  //計算回歸曲線
  StatQQPlot(XData,YData,X,Y,MinX,MaxX,MinY,MaxY,false,false);
  ProbSeries.MinX := MinX;
  ProbSeries.MaxX := MaxX;
  ProbSeries.MinY := MinY;
  ProbSeries.MaxY := MaxY;
  //畫點
  DrawValues(X,Y,ProbSeries);
end;    //Source
procedure TStatProbSeries.DoAfterDrawValues;
var P1,P2: TPoint;
begin
  if (FSlopePen.Visible) then
  begin
    P1.x := CalcXPosValue(minX);
    P1.y := CalcYPosValue(minY);
    P2.x := CalcXPosValue(maxX);
    P2.y := CalcYPosValue(maxY);
    With ParentChart,ParentChart.Canvas do
    begin
      Brush.Style := bsClear;
      AssignVisiblePen(FSlopePen);
      ClipRectangle(ChartRect);
      MoveTo(P1.x,P1.y);
      LineTo(P2.x,P2.y);
      UnClipRectangle;
    end;
  end;
  inherited DoAfterDrawValues;
end;

Constructs the Quantile-Quantile Chart.
Unit
StatSeries    Declaration
Procedure StatQQPlot(XData, YData: TVec; XDrawVec, YDrawVec: TVec; var MinX, MaxX, MinY, MaxY: TSample; XDataSorted: boolean = true; YDataSorted: boolean = true);
Description
Constructs the Quantile-Quantile Chart. Use TStatProbSeries to visualize/plot constructed values.
Parameters
XData
X Data.
YData
Y Data.
XDataSorted
If true, algorithm assumes XData is already sorted in ascending order. If XData is not sorted, you must set this parameter to false so that internal algorithm will automatically do the sorting.
YDataSorted
If true, algorithm assumes YData is already sorted in ascending order. If YData is not sorted, you must set this parameter to false so that internal algorithm will automatically do the sorting.
XDrawVec
Retunrs vector of X values to be drawn.
YDrawVec
Returns vector of Y values to be drawn.
minX,minY
Returns slope line start point. These value are used by TStatProbSeries series.
maxX,maxY
Returns slope line end point. These value are used by TStatProbSeries series.    Category
Probabilities plots

引言: 引言: ---------------------------------------------------------------------- 有辦法可以更換它的OnGetLabel 嗎? 很不幸地它是寫在protected裡， 1.所以要改寫的話再繼承下來再改寫。 2.或者不要繼承，依照它寫的元件再複製一份， 取別的class name，然後把那部分自己修改。 ---------------------------------------------------------------------- 有其它方法可以解決嗎