DBGrid如何使选中的整行变颜色（同时可以编辑），原来的属性dgrowselect变成true后就不能直接对他进行编辑了  

想请教哪位大虾指点一二
谢谢

到 Google 找合用的第三方控件, 或繼承 TDBGrid 開發自己的控件.

不繼承元件方式
1, 調用 OnDrawColumnCell 定義 顏色及背景顏色
2, 在觸發資料瀏覽異動時，執行 invalidateRow 若無 Public 可自行撰寫。拷貝Delphi 源碼。

繼承元件方式：
直接 Override HighlightCell 方法重新比對 BookMark 更改 Result
可參考
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=90260

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TStringGrid(DBGrid1) do begin
if row = MouseCoord(Rect.Left 1, Rect.Top 1).Y then begin
Canvas.Brush.Color := claqua;
end;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

这个方法果然可以,谢谢
===================引 用 st33chen 文 章===================
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TStringGrid(DBGrid1) do begin
if row = MouseCoord(Rect.Left 1, Rect.Top 1).Y then begin
Canvas.Brush.Color := claqua;
end;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;