var i:Integer; begin for i :=0 to Series1.XValues.Count - 1 do begin Chart1.Canvas.TextOut(x,y,'字符串');//x,y就是你要取得的点的坐标的,x,y值 end; end; 或者,如果可以的话,你可以替换s的文字,换成你的文字var i:Integer; begin for i :=0 to Series1.XValues.Count - 1 do begin Series1.Marks.Draw(i,clWhite,'',Series1.Marks.Positions.Position[i]); end; end;
这样就可以实现你想要的结果了。
换一个角度,可能会有意想不到的效果。
var
i:Integer;
begin
for i :=0 to Series1.XValues.Count - 1 do
begin
Chart1.Canvas.TextOut(x,y,'字符串');//x,y就是你要取得的点的坐标的,x,y值
end;
end;
或者,如果可以的话,你可以替换s的文字,换成你的文字var
i:Integer;
begin
for i :=0 to Series1.XValues.Count - 1 do
begin
Series1.Marks.Draw(i,clWhite,'',Series1.Marks.Positions.Position[i]);
end;
end;
首先,
Chart1.Canvas.TextOut(x,y,'字符串');//x,y就是你要取得的点的坐标的,x,y值
是可以使用的,但,chart上点的座标不好把握,
其次,
Series1.Marks.Draw(i,clWhite,'',Series1.Marks.Positions.Position[i]);
该语句为病句,无法执行,
在delphi中,series1.s.draw;只有该方法,所以后续的参数无法使用!
还望各位前辈写出正解,谢谢!
vPoint: TPointSeries;
begin
vPoint := TPointSeries.Create(chart1);
vPoint.ParentChart := chart1;
vPoint.Title := 'xxxx';
vPoint.Marks.Visible := true;
vPoint.AddXY( XValues.Last+1,
(YValues.Last/YValues.Multiplier)+(Random(ChartSamplesMax)-(ChartSamplesMax/2)),
'',clTeeColor);...
end;
告诉你的方法是动态添加的,你也可以手工尝试达到你的效果!
而对于smallhand所述操作倒是一个简单的算法.