當座標軸中lable值過長時，就不會顯示出來，如圖所示，X軸的第二項沒有顯示，第四項由於被第三項占了一部分位置也沒與顯示出來，我想要它可以顯示出來，不知道該如何設置DBChart的屬性呢？

我通過修改Chart>Legend>Position和Series>Format>Bar Width這兩者的值，確實可以讓我表中的X軸數值都顯示出來，但這並不是我最想要的解決辦法，我想知道是否有什麼方法讓座標值自動換行從而適應當前列的寬度。我查看了下DBChart的屬性，似乎是沒有看到有關於自動換行的設置，不知道是沒有還是我沒有看到。在網上有搜索過，也沒有找到我需要的答案。所以還請各位熟悉的朋友可以幫忙解答下，謝謝！

附加檔案：4a2023f05c030_1.jpg

編輯記錄

一般 caption 要換行都是這樣做

string1 #13 string2 #13 string3

試試這樣的方式

我試了一下，似乎沒有效果。不過還是謝謝您的答復！

參考以下程式看有沒有幫助, 這是我在圖片畫完後, 自己加上三組lable 如下圖的做法

[code delphi]
procedure TForm_Rep591.DBChart1AfterDraw(Sender: TObject);
Procedure DrawVerticalLine(ax,ay: Integer);
begin
with DBChart1, Canvas do begin
Pen.Color:= clGray;
Pen.Style:= psSolid;
Pen.Mode := pmBlack; //pmXor;
Pen.Width:= 1;
MoveTo(ax,ChartRect.Top - Height3D);
LineTo(ax,ChartRect.Bottom - Height3D);
Font.Size:= 7;
Font.Name:= '細明體';
Font.Color:= clBlack;
if rgDM.Itemindex=0 then
TextOut(ax-90,ay 4,SysUt.DayFormat(DM_Rep591.IBQ_D8001FORMDATE.AsString,
'/',U_VarDef.cdatedigit))
else
TextOut(ax-90,ay 4,copy(SysUt.DayFormat(DM_Rep591.IBQ_D8001FORMDATE.AsString,
'/',U_VarDef.cdatedigit),1,U_VarDef.cdatedigit 3));
if cbxP1.Checked then begin
Font.Color:= clNavy;
TextOut(ax-26,ay 4,'成本:' DM_Rep591.IBQ_D8001GCOST.AsString);
end;
if cbxP2.Checked then begin
Font.Color:= $00004000;
TextOut(ax-26,ay 18,'銷售:' DM_Rep591.IBQ_D8001GPRICE.AsString);
end;
if cbxP3.Checked then begin
Font.Color:= clMaroon;
TextOut(ax-26,ay 32,'毛利:' DM_Rep591.IBQ_D8001GPROFIT.AsString);
end;
end;
end;
var TmpX: Integer;
begin
with DM_Rep591 do
try
TmpX:= Series1.CalcXPosValue(Series1.XValue[IBQ_D8001.RecNo-1]);
if PtInRect(DBChart1.ChartRect,
Point(TmpX-DBChart1.Width3D,Round(DBChart1.Height/2)
DBChart1.Height3D))
then DrawVerticalLine(TmpX,0);
except
end;
end;
[/code]