關於delphi畫虛線，簡單的辦法，和動態說明。

今天看到一個求助的帖子，需要在豎直方向上話虛線。

因爲我在公司做過關於網路結點的優化問題，所以很容易就想到了Canvas.MoveTo()h和Canvas.LinkTo().自己在D7 上實現了哈，沒有問題。

於是貼上自己寫的簡單代碼，如下：

procedure TForm1.Button1Click(Sender: TObject);
var i,y:integer;
begin
  y:=150;
  for i:=0 to 8 do
  begin
  Canvas.MoveTo(200,y);
  y:=y+20;
  Canvas.LineTo(200,y);
  y:=y+20;
  end;
end;

然後我想了哈，跟他說可以動態設置這些虛線。可以寫一個函數，來實現X,Y值的變化，也可以在其中加虛線的長度，已達到更加美觀的目的。

而我在公司做網絡結點優化師必須使用折線，也可以使用虛線來，只是在算法裏面修改X,Y的座標關係。

具體的實現代碼我不貼出來，原理一樣。