各位前輩您好： 我嘗試在DBGRID中改變Column的顏色，由於軟體的需求是需要使用者可以透過 滑鼠右鍵開啟Popmenu，然後設定五種顏色，並透過DBGRID的DBGrid1DrawColumnCell來動態顯示顏色，我使用的方式是將顏色規劃在每一筆記錄的尾端比如紀錄欄位A01顏色欄位會讀取對應的尾端CA01欄位，用以顯示顏色，而我在欄位中記錄的顏色格式為$000000FE，但是卻發現他說文字不可以轉成顏色，我嘗試將$000000FE轉成整數，但是卻發生錯誤，不知道顏色的控制是該使用$000000FE或者使用顏色代碼clWhite，還有我資料庫的顏色欄位是字串 如何取出字串，然後轉成(Sender as TDBGrid).Columns[i].Color可以接受的 資料型別，真是搞死人了！ 學長還跟我講Delphi是隨便寫都可以寫出程式的 RAD，開始我也這樣覺得，但細部的操作，卻是搞死人了！ 錯誤訊息：TColor 不相容String field_value := VarToStr((Sender as TDBGrid).Columns[i 100].Field.Value); (Sender as TDBGrid).Columns[i].Color := field_value; TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State); 發表人 - yaoyao01tw 於 2005/06/26 15:23:32

function ColorToString(Color: TColor): string; function StringToColor(const S: string): TColor; ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～