請問各位前輩，小弟想要寫一個程式，可以用 TChart 物件畫出五個資料點，並且用線段相連接，但是還需要可以用滑鼠點選並移動特定資料點的功能，是否有方法可以做到呢？ 還是有其他的 VCL 元件可以提供類似的功能呢？    先謝謝大家 

關於個人提出的這個問題，目前我的作法是利用 TChart  的三個事件來達成的，分別是 OnMouseDown, OnMouseMove, OnMouseUp 另外，我還在TChart上另外增加了一個Shape物件，來只出示那個資料點 被選取了，作法如下：    在OnMouseDown的事件的程式大致如下：    void __fastcall TMainForm::chart1MouseDown(TObject *Sender,       TMouseButton Button, TShiftState Shift, int X, int Y) {     //檢查是否有chart1上的資料點被點選 INT Index = chart1->Series[0]->Clicked(X,Y); if( Index != -1 ) { PointIndex = Index; PointSelFlag = true; //以一個shape來指出那個資料點被選取了 Shape1->Top = Y - 4; Shape1->Left = X - 4; Shape1->Visible = true; } } 在 OnMouseMove 的事件處理如下 void __fastcall TMainForm::Chart1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { INT PosX = X, PosY = Y; if( PointSelFlag ) { //移動Shape1以達到資料點移動的效果 Shape1->Top = PosY - 4; Shape1->Left = PosX - 4; } } 在 OnMouseUp 的事件處理如下 void __fastcall TMainForm::Chart1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { float CurrX, CurrY; if( PointSelFlag ) { //計算出目前Shape1的位置在Chart1的資料座標值 CurrX = (float)((float)(Shape1->Left 4)/512) * StrToInt( labC4ADSRTime->Caption ); CurrY = 127 - (Shape1->Top 4); Shape1->Visible = false; PointSelFlag = false; //將原來選的那個資料點刪除 加上新資料點 Chart1->Series[0]->Delete(PointIndex); Chart1->Series[0]->AddXY((INT)CurrX, (INT)CurrY); } } 不知道大家是否還有更好的作法呢？

關於個人提出的這個問題，目前我的作法是利用 TChart  的三個事件來達成的，分別是 OnMouseDown, OnMouseMove, OnMouseUp 另外，我還在TChart上另外增加了一個Shape物件，來只出示那個資料點 被選取了，作法如下：    在OnMouseDown的事件的程式大致如下：    void __fastcall TMainForm::chart1MouseDown(TObject *Sender,       TMouseButton Button, TShiftState Shift, int X, int Y) {     //檢查是否有chart1上的資料點被點選 INT Index = chart1->Series[0]->Clicked(X,Y); if( Index != -1 ) { PointIndex = Index; PointSelFlag = true; //以一個shape來指出那個資料點被選取了 Shape1->Top = Y - 4; Shape1->Left = X - 4; Shape1->Visible = true; } } 在 OnMouseMove 的事件處理如下 void __fastcall TMainForm::Chart1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { INT PosX = X, PosY = Y; if( PointSelFlag ) { //移動Shape1以達到資料點移動的效果 Shape1->Top = PosY - 4; Shape1->Left = PosX - 4; } } 在 OnMouseUp 的事件處理如下 void __fastcall TMainForm::Chart1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { float CurrX, CurrY; if( PointSelFlag ) { //計算出目前Shape1的位置在Chart1的資料座標值 CurrX = (float)((float)(Shape1->Left 4)/512) * StrToInt( labC4ADSRTime->Caption ); CurrY = 127 - (Shape1->Top 4); Shape1->Visible = false; PointSelFlag = false; //將原來選的那個資料點刪除 加上新資料點 Chart1->Series[0]->Delete(PointIndex); Chart1->Series[0]->AddXY((INT)CurrX, (INT)CurrY); } } 不知道大家是否還有更好的作法呢？