可以直接在窗体上,也可以在画布(好象是paintbox)上面画。有个函数,大概就是point吧,直接连接随机的坐标点,我现在确实不大记得了,只好用下面这种方法,希望能行:1)在窗体上画: 在form页的属性观察器events一栏,双击onpaint从而自动生成过程,画图语句最好写在此处执行;代码如下 with canvas do begin pen.color:=画笔的颜色; pen.width:=线宽; moveto(起始点坐标); for i:=2 to n do lineto(第i个点坐标); end;2)在画布上画: 添加一个paintbox组件,在该组件的属性观察器events一栏,双击onpaint从而自动生成过程,画图语句最好写在此处执行;代码如下 with sender as paintbox do //这句好象就是这样写的,现在没办法回去看! with canvas do begin pen.color:=画笔的颜色; pen.width:=线宽; moveto(起始点坐标); for i:=2 to n do lineto(第i个点坐标); end;
在form页的属性观察器events一栏,双击onpaint从而自动生成过程,画图语句最好写在此处执行;代码如下
with canvas do
begin
pen.color:=画笔的颜色;
pen.width:=线宽;
moveto(起始点坐标);
for i:=2 to n do
lineto(第i个点坐标);
end;2)在画布上画:
添加一个paintbox组件,在该组件的属性观察器events一栏,双击onpaint从而自动生成过程,画图语句最好写在此处执行;代码如下
with sender as paintbox do //这句好象就是这样写的,现在没办法回去看!
with canvas do
begin
pen.color:=画笔的颜色;
pen.width:=线宽;
moveto(起始点坐标);
for i:=2 to n do
lineto(第i个点坐标);
end;
坐标的画法就是用moveto和lineto两个方法实现。
曲线的话,也是用这两个方法,不过在点与点的距离上要处理好,不要太曲折就是了。要是精度再高一点的话,可以使用数学上的傅立叶变换,把两个点之间的距离再细分为N个点,然后连起来,可以实现圆滑曲线的效果。
先按着上面的思路做做吧
还有人要建议吗?