關於DBGRID顏色顯示，採用資料表同一比記錄的後面欄位來決定前面欄位來記錄顏色顯示 各位前輩： 想問一下關於DBGRID顏色顯示，我在DBGrid1DrawColumnCell變更顏色顯示的程式碼 採用的撰寫方式乃是讀取資料表同一比記錄的後面欄位來決定前面欄位來記錄顏色顯示 比如欄位名稱[1]同一比記錄對應的顏色記錄是[C1]，可是顏色顯示都不會正確 記得ＤＢＧＲＩＤ是同一列掃下來的，可是顏色顯示都不會正確。 煩請各位前輩看一下程式碼(http://cm.yuntech.edu.tw/8923538/Code_TEst.rar) procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var i: Integer; begin for i := 0 to (Sender as TDBGrid).Columns.Count - 1 do begin if ((i > 8) and (i <= 108)) then // 只處理有顏色的對應欄位 begin if (Sender as TDBGrid).Columns[i 100].Field.Value <> Null then begin if Trim((Sender as TDBGrid).Columns[i 100].Field.Value) <> '' then begin (Sender as TDBGrid).Columns[i].Color := StringToColor((Sender as TDBGrid).Columns[i 100].Field.Value); end; end else begin (Sender as TDBGrid).Columns[i].Color := clWhite; //預設的顏色值 end; end; end; TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var i: Integer;
begin
    if ((DataCol > 8) and (DataCol <= 108))  then //  只處理有顏色的對應欄位
    begin
      if (Sender as TDBGrid).Columns[DataCol   100].Field.Value <> Null then
      begin
        if Trim((Sender as TDBGrid).Columns[DataCol   100].Field.Value) <> '' then
        begin
      (Sender as TDBGrid).canvas.Brush.color  := StringToColor (Trim((Sender as TDBGrid).Columns[DataCol   100].Field.Value));
        end;
      end
      else
        (Sender as TDBGrid).canvas.Brush.color  := clWhite; //預設的顏色值
    end;        (Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);    end;

try try see