我有一張影像，想利用Mouse down 與Mouse Up來產生點，並將點連結，而我的程式碼寫出，其連結方式怪怪的，類似以三角的方式連結，不知哪為高手能幫我解決呢，謝謝，程式碼如下。 //------------------------------- int count; TPoint Points[256*256]; //------------------------------- void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { mbLeft; //加入點 Points[count].x=X; Points[count++].y=Y; } //------------------------------- void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Image1->Canvas->Pen->Width=2.0; //畫線 Image1->Canvas->Pen->Color=clBlue; Image1->Canvas->Brush->Style=bsClear; Image1->Canvas->Polygon(Points,count-1); //畫點 Image1->Canvas->Pen->Color=clRed; Image1->Canvas->Brush->Style=bsDiagCross; for(int i=0;iCanvas->Ellipse(Points[i].x-1.5,Points[i].y-1.5,Points[i].x+1.5,Points[i].y+1.5); } } //------------------------------- 我想要外邊點的連結即可，而不需連內部的線，請各位大大幫我解決！謝謝 ＊＊＊程式語言真是一門高深的學問＊＊＊ 發表人 -

------
＊＊＊程式語言真是一門高深的學問＊＊＊

bala0514 您好：    Polygon(.)會將最後一點與起點連起來形成封閉的區域，這就是造成您出現類似三角網格的原因。 使用Polyline(.)就可以解決您的問題，終點與起點就不會連起來了。 <>< face="Verdana, Arial, Helvetica">引言: //------------------------------- void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Image1->Canvas->Pen->Width=2.0; //畫線 Image1->Canvas->Pen->Color=clBlue; Image1->Canvas->Brush->Style=bsClear; Image1->Canvas->Polygon(Points,count-1); //改成=> Image1->Canvas->Polyline(Points,count-1); 我想要外邊點的連結即可，而不需連內部的線，請各位大大幫我解決！謝謝 ＊＊＊程式語言真是一門高深的學問＊＊＊ < face="Verdana, Arial, Helvetica"> RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====##### 發表人 - richtop 於 2004/09/07 12:46:40

引言: bala0514 您好： Polygon(.)會將最後一點與起點連起來形成封閉的區域，這就是造成您出現類似三角網格的原因。 使用Polyline(.)就可以解決您的問題，終點與起點就不會連起來了。 <>< face="Verdana, Arial, Helvetica">引言: //------------------------------- void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Image1->Canvas->Pen->Width=2.0; //畫線 Image1->Canvas->Pen->Color=clBlue; Image1->Canvas->Brush->Style=bsClear; Image1->Canvas->Polygon(Points,count-1); //改成=> Image1->Canvas->Polyline(Points,count-1); 我想要外邊點的連結即可，而不需連內部的線，請各位大大幫我解決！謝謝 ＊＊＊程式語言真是一門高深的學問＊＊＊ < face="Verdana, Arial, Helvetica"> RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====##### 發表人 - richtop 於 2004/09/07 12:46:40

謝謝！感恩阿！！ ＊＊＊程式語言真是一門高深的學問＊＊＊