在DBGRID中顯示的方式:默認的顯示是當光標停在那個位置上顯示成蘭色,我現在要取消DELPHI的默認的方式,自己寫代碼控制它的顯示的底色,怎樣實現???(1分

在DBGRID中顯示的方式:默認的顯示是當光標停在那個位置上顯示成蘭色,我現在要取消DELPHI的默認的方式,自己寫代碼控制它的顯示的底色,怎樣實現???(1分)<br />如題

procedure TForm1.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if odd(Grid.DataSource.DataSet.RecNo) then//奇偶行判断
begin
Grid.Canvas.Font.Color:=clblack;
Grid.Canvas.Brush.color:=clwhite;
end
else
begin
Grid.Canvas.Font.Color:=clblack;
Grid.Canvas.Brush.color:=clcream;
end;
if Grid.SelectedRows.CurrentRowSelected then//dgRowSelect和dgMultiSelect都为真时有效
begin
Grid.Canvas.Font.Size:=12;
Grid.Canvas.Font.Style:=[fsBold];
Grid.Canvas.Font.Color:=clwhite;
Grid.Canvas.Brush.color:=clNavy;
end;
Grid.DefaultDrawColumnCell(rect,datacol,column,state);

end;