StringGrid去掉第一行第一列的蓝色框（失去焦点）

方法一：

在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;

 

DELPHI窗体加载时StringGrid的第一行数据不被选中(去掉蓝色背景色) 不显示蓝色

方法二：这样也行。

uses Grids;

procedure TfrmEvent.FormCreate(Sender: TObject);

var

    rect:TGridRect;

begin

//24为stringgrid1中不存在的范围

      rect.Left:=24;
      rect.Right :=24;
      rect.Top :=24;
      rect.Bottom:=24;
     StringGrid1.selection :=rect;

end;

这样做了之后stringgrid在加载时就取消兰色选中颜色