//聲明:
PolylineTo(
DC: HDC; {設備環境句柄}
var Points; {點數組}
Count: Integer {數組元素個數}
): BOOL;
//如果不給 PolylineTo 指定起點, 將默認 0 點位起點
procedure TForm1.FormPaint(Sender: TObject);
var
ps: array[0..5] of TPoint;
begin
ps[0].X := 50;
ps[0].Y := 50;
ps[1].X := 100;
ps[1].Y := 50;
ps[2].X := 125;
ps[2].Y := 75;
ps[3].X := 100;
ps[3].Y := 100;
ps[4].X := 50;
ps[4].Y := 100;
ps[5].X := 25;
ps[5].Y := 75;
PolylineTo(Canvas.Handle, ps, 6);
end;
//效果圖:
//給 PolylineTo 指定起點
procedure TForm1.FormPaint(Sender: TObject);
var
ps: array[0..4] of TPoint;
begin
MoveToEx(Canvas.Handle, 50,50, nil);
ps[0].X := 100;
ps[0].Y := 50;
ps[1].X := 125;
ps[1].Y := 75;
ps[2].X := 100;
ps[2].Y := 100;
ps[3].X := 50;
ps[3].Y := 100;
ps[4].X := 25;
ps[4].Y := 75;
PolylineTo(Canvas.Handle, ps, 5);
end;
//效果圖:
//PolylineTo 更新當前位置
procedure TForm1.FormPaint(Sender: TObject);
var
ps: array[0..4] of TPoint;
begin
MoveToEx(Canvas.Handle, 50,50, nil);
ps[0].X := 100;
ps[0].Y := 50;
ps[1].X := 125;
ps[1].Y := 75;
ps[2].X := 100;
ps[2].Y := 100;
ps[3].X := 50;
ps[3].Y := 100;
ps[4].X := 25;
ps[4].Y := 75;
PolylineTo(Canvas.Handle, ps, 5);
{PolylineTo 更新當前位置, 繼續畫}
LineTo(Canvas.Handle, 50,50);
end;
//效果圖: