【1】.用 ip2000的wwwdbgrid 或者dbgrideh
【2】.或者参考
procedure DBGrid1.OnDrawColumnCell(const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
begin
with DBGrid1 do
if (gdSelected in State) and (Windows.GetFocus <> Self.Handle) then
begin
Canvas.Brush.Color := FHighLightColor;
Canvas.Font.Color := FHighLightTextColor;;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;