我同時放了5個Chart 每個chart裡面都定義4條Series 本來是打算5個chart同時動作 但是執行的時候只有chart1有繪圖 其他4個都是空的@@? 是我漏掉什麼嗎@@? 以下是我的方式 ========================== // 建立Chart元件 >>>> Chart1->RemoveAllSeries(); // 清除Chart1上所有舊 Series Chart1->View3D=false; // 不要 3D 立體 Chart1->Legend->Visible=false; // 不秀圖例說明 Chart1->Title->Text->Clear(); // 建立Chart元件 <<<< // 建立Series元件 >>>> Series1=new TLineSeries (Chart1) ; Series1->ParentChart=Chart1; Series1->Marks->Visible=false; // 設定要提示說明 Series1->SeriesColor=clRed; // 設線條1為藍色 Series2=new TLineSeries (Chart1) ; Series2->ParentChart=Chart1; Series2->Marks->Visible=false; // 設定要提示說明 Series2->SeriesColor=clGreen; // 不設則自動給色 Series3=new TLineSeries (Chart1) ; Series3->ParentChart=Chart1; Series3->Marks->Visible=false; // 設定要提示說明 Series3->SeriesColor=clBlack; // 不設則自動給色 Series4=new TLineSeries (Chart1) ; Series4->ParentChart=Chart1; Series4->Marks->Visible=false; // 設定要提示說明 Series4->SeriesColor=clBlack; // 不設則自動給色 // 建立Series元件 <<<< // 繪製曲線 >>>> String L; //Label for (int i = 0; i < Max_Draw_S; i ) { L=IntToStr(i); // 軸名稱 Series1->Add( D_Per_R[D_Show_ID[0]-1][i] , L , clRed ); Series2->Add( D_Set_R[D_Show_ID[0]-1][i] , L , clGreen ); Series3->Add( Max_Per_Var[0] , L , clBlack ); Series4->Add( Min_Per_Var[0] , L , clBlack ); } // 繪製曲線 <<<< // 建立Chart元件 >>>> Chart2->RemoveAllSeries(); // 清除Chart1上所有舊 Series Chart2->View3D=false; // 不要 3D 立體 Chart2->Legend->Visible=false; // 不秀圖例說明 Chart2->Title->Text->Clear(); // Here // 建立Chart元件 <<<< // 建立Series元件 >>>> LineSeries1=new TLineSeries (Chart2) ; LineSeries1->ParentChart=Chart1; LineSeries1->Marks->Visible=false; // 設定要提示說明 LineSeries1->SeriesColor=clRed; // 設線條1為藍色 LineSeries2=new TLineSeries (Chart2) ; LineSeries2->ParentChart=Chart1; LineSeries2->Marks->Visible=false; // 設定要提示說明 LineSeries2->SeriesColor=clGreen; // 不設則自動給色 LineSeries3=new TLineSeries (Chart2) ; LineSeries3->ParentChart=Chart1; LineSeries3->Marks->Visible=false; // 設定要提示說明 LineSeries3->SeriesColor=clBlack; // 不設則自動給色 LineSeries4=new TLineSeries (Chart2) ; LineSeries4->ParentChart=Chart1; LineSeries4->Marks->Visible=false; // 設定要提示說明 LineSeries4->SeriesColor=clBlack; // 不設則自動給色 // 建立Series元件 <<<< // 繪製曲線 >>>> String L; //Label for (int i = 0; i < Max_Draw_S; i ) { L=IntToStr(i); // 軸名稱 LineSeries1->Add( D_Per_R[D_Show_ID[1]-1][i] , L , clRed ); LineSeries2->Add( D_Set_R[D_Show_ID[1]-1][i] , L , clGreen ); LineSeries3->Add( Max_Per_Var[1] , L , clBlack ); LineSeries4->Add( Min_Per_Var[1] , L , clBlack ); } // 繪製曲線 <<<< // 建立Chart元件 >>>> Chart3->RemoveAllSeries(); // 清除Chart1上所有舊 Series Chart3->View3D=false; // 不要 3D 立體 Chart3->Legend->Visible=false; // 不秀圖例說明 Chart3->Title->Text->Clear(); // 建立Chart元件 <<<< // 建立Series元件 >>>> LineSeries5=new TLineSeries (Chart3) ; LineSeries5->ParentChart=Chart1; LineSeries5->Marks->Visible=false; // 設定要提示說明 LineSeries5->SeriesColor=clRed; // 設線條1為藍色 LineSeries6=new TLineSeries (Chart3) ; LineSeries6->ParentChart=Chart1; LineSeries6->Marks->Visible=false; // 設定要提示說明 LineSeries6->SeriesColor=clGreen; // 不設則自動給色 LineSeries7=new TLineSeries (Chart3) ; LineSeries7->ParentChart=Chart1; LineSeries7->Marks->Visible=false; // 設定要提示說明 LineSeries7->SeriesColor=clBlack; // 不設則自動給色 LineSeries8=new TLineSeries (Chart3) ; LineSeries8->ParentChart=Chart1; LineSeries8->Marks->Visible=false; // 設定要提示說明 LineSeries8->SeriesColor=clBlack; // 不設則自動給色 // 建立Series元件 <<<< // 繪製曲線 >>>> String L; //Label for (int i = 0; i < Max_Draw_S; i ) { L=IntToStr(i); // 軸名稱 LineSeries5->Add( D_Per_R[D_Show_ID[2]-1][i] , L , clRed ); LineSeries6->Add( D_Set_R[D_Show_ID[2]-1][i] , L , clGreen ); LineSeries7->Add( Max_Per_Var[2] , L , clBlack ); LineSeries8->Add( Min_Per_Var[2] , L , clBlack ); } // 繪製曲線 <<<< .... 略

請加入 .... // 繪製曲線 <<<< Application->ProcessMessages(); .... 略 試試 Andy Chang

------
Andy Chang

我發現是我自己的問題@@ 類似的程式碼都是用貼的所以程式有漏改的地方 // 建立Series元件 >>>> LineSeries1=new TLineSeries (Chart2) ; LineSeries1->ParentChart=Chart1; <== 要改成Chart2 我漏掉了 請問 Application->ProcessMessages(); 的功能是什麼?

請參考 http://delphi.ktop.com.tw/topic.php?topic_id=48510 Andy Chang

------
Andy Chang