請教各位先進，小弟想要程式能夠根據下列程式（參考用）依序產生線條，可是只要留下gi變數所給的線條（一條），現在的問題是依序產生線條了，可是問題是畫面都會殘留之前的線條，最後畫面就亂七八糟了；請問該如何將之前跑過的線條給清除呢？懇請賜教！感謝！

 
…
Canvas->Pen->Color=clGray;
Canvas->MoveTo(pa[gi-1][0],pa[gi-1][1]);
Canvas->LineTo(pa[gi][0],pa[gi][1]); 
…

我目前是用白的線條蓋過去    算是很笨的方法

enu您好: 您可以參考下面連結文章中RaynorPao大哥的說明  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=56617 順心

你可以在劃線時,先把 Canvas->Pen->Mode = pmXor; 則當你劃幾條線之後,想刪哪一條線,只要把那條線重劃一次即可消除. 但它也有缺點: 1.顏色會不一樣,可能要取互補色. 2.當有兩條相同的線,會看不到. 另外也可把圖存起來重劃,所有線條重劃,不要劃不想劃的線即可.

謝謝各位的回應，都很有參考價值，不過後來自己用了一個笨方式解決了！