在StringGrid的OnDrawCell事件中加入下列语句:
if gdSelected in State then
begin
stringgrid1.Canvas.Brush.Color:=stringgrid1.color;
stringgrid1.Canvas.FillRect(rect);
stringgrid1.Canvas.Font.Color:=clblack;
stringgrid1.Canvas.TextRect(rect,Rect.Left+2,rect.top+2,stringgrid1.Cells[ACol,ARow]);
end;