各位大大，想請問我有一個4*4的string grid。 當我按下一個button後，一開始第一列(ARow==1)會呈現黃色的光棒，當 sg->cells[3][ARow]=="PASS"時，第一列由黃色變成綠色光棒；而當sg->Cells[3][ARow]=="FAIL"時，第一列則由黃色變成紅色光棒。 第一列執行完畢後，換第二列呈現黃色光棒，同樣當sg->cells[3][ARow]=="PASS"時，第二列由黃色變成綠色光棒；而當sg->Cells[3][ARow]=="FAIL"時，第二列則由黃色變成紅色光棒。 執行到第三列則停止，請問我該如何做比較好呢？ Auston Huang

------
Auston Huang

ohsula 您好：    不精確知道您如何更改成PASS或FAIL？ 有個改寫StringGrid1的StringGrid1DrawCell(.)函式的方法，供您參考與修改成您要的形式。 < class="code"> //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { if ( ((TStringGrid*)Sender)->Cells[3][ARow]=="PASS" ) { ((TStringGrid*)Sender)->Canvas->Brush->Color = clGreen; ((TStringGrid*)Sender)->Canvas->FillRect(Rect); ((TStringGrid*)Sender)->Canvas->TextOut(Rect.Left 1, Rect.Top 1, ((TStringGrid*)Sender)->Cells[ACol][ARow]); } else if ( ((TStringGrid*)Sender)->Cells[3][ARow]=="FAIL" ) { ((TStringGrid*)Sender)->Canvas->Brush->Color = clRed; ((TStringGrid*)Sender)->Canvas->FillRect(Rect); ((TStringGrid*)Sender)->Canvas->TextOut(Rect.Left 1, Rect.Top 1, ((TStringGrid*)Sender)->Cells[ACol][ARow]); } else { ((TStringGrid*)Sender)->Canvas->Brush->Color = clYellow; ((TStringGrid*)Sender)->Canvas->FillRect(Rect); ((TStringGrid*)Sender)->Canvas->TextOut(Rect.Left 1, Rect.Top 1, ((TStringGrid*)Sender)->Cells[ACol][ARow]); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TRect Rect; StringGrid1->Cells[3][3] = "PASS"; StringGrid1->Refresh(); // 重繪StringGrid1 } void __fastcall TForm1::Button2Click(TObject *Sender) { TRect Rect; StringGrid1->Cells[3][3] = "FAIL"; StringGrid1->Refresh(); // 重繪StringGrid1 } void __fastcall TForm1::Button3Click(TObject *Sender) { TRect Rect; StringGrid1->Cells[3][3] = "NORMAL"; StringGrid1->Refresh(); // 重繪StringGrid1 } //--------------------------------------------------------------------------- RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

hello，可是因為這一行程式，一開始畫面全部呈現黃色，我想了好久都沒辦法 讓一開始只有第一列呈現黃色。 ///////////////////////////////////////////////////////////////// else { ((TStringGrid*)Sender)->Canvas->Brush->Color = clYellow; ((TStringGrid*)Sender)->Canvas->FillRect(Rect); ((TStringGrid*)Sender)->Canvas->TextOut(Rect.Left 1, Rect.Top 1,((TStringGrid*)Sender)->Cells[ACol][ARow]); } /////////////////////////////////////////////////////////////// Auston Huang

------
Auston Huang

ohsula 您好：    程式修改如前一篇藍色部分。 因無法完全知道您的程式流程與觸發時機，所以用上述方式寫程式，不盡然符合您的期待，僅供參考，您還是要依據自己的需求修改！