求BCB6画一个随时间变化的曲线。在PaintBox控件上。解决方案

求BCB6画一个随时间变化的曲线。在PaintBox控件上。
PaintBox1-> Canvas-> MoveTo(TimeCount+PaintBox1-> Width/2,(int)(TargetArray[TimeCount1]*1000+PaintBox1-> Height/2));
                PaintBox1-> Canvas-> LineTo(TimeCount+10+PaintBox1-> Width/2,(int)(TargetArray[TimeCount1+1]*1000+PaintBox1-> Height/2));
//十秒记数TimeCount     横坐标
//TargetArray[TimeCount1+1]计算值，纵坐标


画出来是直线。




[解决办法]
Canvas-> PolyBezier()
[解决办法]
PaintBox1-> Canvas-> MoveTo(TimeCount+PaintBox1-> Width/2,(int)(TargetArray[TimeCount1]*1000+PaintBox1-> Height/2));
PaintBox1-> Canvas-> LineTo(TimeCount+10+PaintBox1-> Width/2,(int)(TargetArray[TimeCount1+1]*1000+PaintBox1-> Height/2));
//十秒记数TimeCount 横坐标
//TargetArray[TimeCount1+1]计算值，纵坐标
放到Timer事件中
然后 Timer1-> Interval = 10000;