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;