我有一個直方圖的分佈圖！如圖1，我想利用TrackBar來在圖一上描繪直線，一直移動TrackBar，想要描繪一直線，但是，為何直線畫的出來，但是會一直顯示出先前移動位置上的直線，如圖二。故要如何移除先前所移動的直線，僅留下移動後所描繪出來的一條直線。謝謝，程式碼如下： 圖一 圖二

 int now_x1;
 Image1->Canvas->Pen->Color=(TColor)RGB(0,255,255);
 Image1->Canvas->MoveTo(now_x1,0);
 Image1->Canvas->LineTo(now_x1,255);
 Image1->Canvas->MoveTo(TrackBar1->Position,0);
 Image1->Canvas->LineTo(TrackBar1->Position,255);
 now_x1=TrackBar1->Position;
 Edit1->Text=IntToStr(now_x1);

＊＊＊程式語言真是一門高深的學問＊＊＊ 發表人 - taishyang 於 2005/04/12 11:28:54

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

您好: 放一個Image2在Image1上面,並將Transparent設為true,再試試下面的程式碼,

 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Form1->DoubleBuffered = true;
}
//-------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
   Image2->Picture = NULL;
   Image2->Canvas->Brush->Style=bsClear;
   Image2->Canvas->Pen->Color=(TColor)RGB(0,255,255);
   Image2->Canvas->MoveTo(TrackBar1->Position, 0);
   Image2->Canvas->LineTo(TrackBar1->Position, 255);    }

順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -