方法一:
在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在加载时就取消兰色选中颜色
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。