去掉非聚焦 stringGrid 的最后选中的 cell 颜色

AI权益加码!Claude Code、Cursor等20+工具免费用! 购周边限时加赠Coding Plan Lite,畅享主流AI工具!学习进阶更高效! 阅读详情

 

stringGrid 的cell 选中时会有蓝色,而且stringGrid离焦后那个蓝色依然会去,下面可以不管什么情况下都不显示蓝色  onDrawCell 事件

grid := TStringGrid(Sender);
  if(ARow <>0) then
  begin
  with grid do
    begin
      Canvas.Brush.Color :=clWhite;// ClBlue;
      Canvas.FillRect(Rect);
      Canvas.font.color:=ClBlack;
      Canvas.TextOut(rect.left , rect.top, cells[acol, arow]);
    end;
  end;

 

 

主要方式来源于    TStringGrid的使用

delphi TStringGrid去掉第一单元格的蓝色框及如何选中行显示一行为蓝色及单元格背景色 delphi,TStringGrid 阅读详情

相关推荐

Delphi使StringGrid中的每一格的颜色各不相同

Delphi使StringGrid中的每一格的颜色各不相同

Delphi AdvStringGridStringGrid)加载数据库内容后,自动高亮选择第一行记录

手动加载记录后,光标默认没有任何选择记录,其实一行代码就可解决: AdvStringGrid.SelectRows(1,1); //自动选择第一行 上面代码 的参数1就是表格第一行的索引,参数2表示可以选择几行记录。欢迎加入Delphi知识局QQ群:32422310一起交流Delphi开发知识! ...

Delphi开发局QQ群:32422310 1127

StringGrid单元格的背景色 (转)

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var dx: Integer; begin with (Sender as TStringGrid) do begin //要制定单元格可以在这里进行判断 if...

weixin_30794851的博客 397

Delphi StringGrid单元格背景色填充颜色

转载备忘: 其实也很简单: Canvas.Brush.Color:=$00078CAD; Canvas.FillRect(CellRect(ACol,ARow)); CellRect(ACol,ARow)就是满格填充的关键。 那么 Canvas.Brush.Color:=$003AD9FF; Canvas.FrameRect...

Delphi开发局QQ群:32422310 4395

StringGrid去掉第一行第一列的蓝色框

StringGrid的OnDrawCell事件中加入下列语句:if gdSelected in State thenbegin  stringgrid1.Canvas.Brush.Color:=stringgrid1.color;  stringgrid1.Canvas.FillRect(rect);  stringgrid1.Canvas.Font.Color:=clblack;  strin

海燕 2881

Delphi StringGrid常用属性和常用操作

StringGrid组件用于建立显示字符串的网格,与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性,以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用,这些对象为用户封装了字符串表示的信息或行为。   一、Delphi StringGrid控件的属性及使用说明 1、固定行及固

xiongmao000738 6万+

DBGridEh改变选中颜色

运行效果:选中行变为蓝色步骤1:设置dbgrid的options的dgrowselect为true.步骤2:在dbgrid的ondrawcolumncell事件里面写上:procedureTForm1.DBGrid1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn;Stat...

weixin_30737433的博客 1081
上一篇: mysql中"you can't specify target table"错误
下一篇: delphi 操作 utf-8 的xml 有乱码的解决
laorer
博客等级 码龄24年 527粉丝 118原创
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值