Private Sub Command1_Click()
TChart1.Axis.Bottom.Maximum = 1000
TChart1.Axis.Bottom.Minimum = 1
TChart1.Axis.Bottom.AutomaticMinimum = False
TChart1.Axis.Bottom.AutomaticMaximum = False
TChart1.Axis.Left.Maximum = 1000
TChart1.Axis.Left.Minimum = 1
TChart1.Axis.Left.AutomaticMinimum = False
TChart1.Axis.Left.AutomaticMaximum = False
TChart1.Series(0).asFastLine.Stairs = True
For i = 0 To 1000
TChart1.Series(0).AddXY i, i, Format(Now, "hh:mm:ss"), RGB(255, 0, 0)
Next
TChart1.Legend.Visible = False
这篇博客详细介绍了如何在Delphi应用中使用TChart组件创建动态图表,设置了轴范围和自动调整选项,并演示了每秒添加1000个数据点以生成实时快线。最后,展示了如何隐藏图表的图例。
768

被折叠的 条评论
为什么被折叠?



