請教各位大大一個問題： 因資料來源為BDE故無法使用DataSource1.DataSet.RecNo 因程式功能需求，dgRowSelect不能設為True 問題：要在DBGRID中，選擇某一欄時(if gdselected in state)要改變整行的 顏色。 謝謝各位的幫忙。 ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

少打了一行.....會錯....已修正存到下一篇了... 發表人 - jimmy_wei 於 2005/04/26 17:34:14

shinjie 你好:    

    procedure TFORM.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  oGrid : TDBGrid;
  oDataSet : TDataSet;
  sFieldName :string;
begin
  inherited;
  oGrid := Sender as TDBGrid;
  oDataSet := (Sender as TDBGrid).DataSource.DataSet ;      if not oDataSet.Active then Exit;
  if oDataSet.RecordCount = 0 then Exit;      if gdselected in state
    oGrid.Canvas.Brush.Color:=RGB(200, 100, 100);      oGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);    end;    

我又看了一下....我好像答非所問耶....傷腦筋 發表人 - jimmy_wei 於 2005/04/26 19:35:11

簡單一點將 Options 中 dtMultiSelect := True; dtAlwaysShowEditor := False;    或者

定義 Form1私有變數 RowID     procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  I :Integer;
  ARect: TRect;
begin
  if not ADOQuery1.Active then Exit;      With TStringGrid(DBGrid1),DBGrid1 do
    if gdSelected in state then
    begin
      RowID := Row;
      For I:=LeftCol to LeftCol VisibleColCount do
        if I<>(DataCol 1) then
        begin
          ARect := CellRect(I,Row);
          Windows.InvalidateRect(Handle, @ARect, True);
        end;
    end else if RowID=Row then
    begin
      ARect := CellRect(DataCol 1,Row);
      ARect.Right :=ARect.Left ColWidths[DataCol 1];          Canvas.Brush.Color := ClHighLight;
      Canvas.Font.Color := ClHighLightText;
      DefaultDrawColumnCell(ARect,DataCol,Columns[DataCol],[gdFocused]);
    end;
end;

仍有些瑕疵，如移動滑鼠滾輪[:]可能就會有殘影現象。 要解決此問題，可能要攔截 WM_MOUSEWHEEL 訊息。 自行補強一下吧。 參考。

謝謝wameng大大的回答，我原本也是照這種方式寫， 但是一直控制不好，試了很久還是找不到更好的解法。 也謝謝jimmy_wei大大的回答，但因wameng大大的回答 比較接近，所以分數給wameng大大了。 ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。