>zjwyyh
dghhightlightfouce效果也不理想，我用的也是dbgrideh。
>liyonggang
还是老办法，自己画：
type
TMyGrid=class(TCustomDBGrid);
//dbgJBDJ为DBGrid
procedure TFrmXAGL.dbgJBDJDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TMyGrid(Sender) do begin
if DataLink.ActiveRecord = Row - 1 then begin//选中后的光栅
Canvas.Font.Color:=clWhite;
Canvas.Brush.Color:=$00800040;
end
else Canvas.Brush.Color:=$00F0FFFF;//未选中的颜色
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
