Delphi的繪圖功能[6] - Polygon、Polyline(2)

{繪制連續的一組直線; 它的參數也是一個點數組, 我只是把上面的平移了一點} procedure TForm1.Button2Click(Sender: TObject);
const
　pts: array[0..3] of TPoint = (
　　(x:10+82; y:40),
　　(x:46+82; y:120),
　　(x:82+82; y:40),
　　(x:46+82; y:10)
　);
begin
　Canvas.Polyline(pts);
end;end.

//效果圖: