dbgrid的使用 ( 积分: 30 )

新手.请大家指教.
当不定义drawcolumncell事件时,单击每行时控件会自动用蓝色标识选中行,我想用别的着色标识.代码如何写?请不吝指教.万分感谢...

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdfocused in state) or (gdSelected in state) then
begin
tDBGrid(Sender).canvas.font.color:=clRed;
tDBGrid(Sender).canvas.brush.color:=clYellow;
end;
tDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

接受答案了.