怎么加亮dbgird控件的任意一行?
现在有一个dbgrid控件和一个button按钮,dbgrid中有10行数据。
我要怎么在button的clicked事件中写代码,才能实现不通过点击dbgrid控件的
某一行而加亮他?
我试过dbgrdi1.selectindex:=2; //不行,请高手指点
现在有一个dbgrid控件和一个button按钮,dbgrid中有10行数据。
我要怎么在button的clicked事件中写代码,才能实现不通过点击dbgrid控件的
某一行而加亮他?
我试过dbgrdi1.selectindex:=2; //不行,请高手指点
解决方案 »
- stringgrid或者其他类似控件如何实现多条计算数据的记录和汇总
- 怎样通过外挂改变别人软件里的dxgrid单元格的值
- delphi 关于TColor和RGB
- 在字符串里提取子串的问题
- 我的存储过程在查询分析器下可以运行,为什么通过DELPHI的ADOQUERY和ADOStoredProc要出现EOLEEXCEPTION的错误。(高手请帮忙,必有重谢)
- 帮忙!
- 一个关于ip地址动态变更的问题?
- 用DEBUG可不可以改掉我程序中变量的值
- 用什么函数来清空用ADO连接的一个数据表?
- (100分)谁有加密算法?不需要太复杂,但是一定要PASCAL描述的,急用,没工夫细细琢磨,拜托给为大虾。
- 关于PAGECONTROL简单的问题,在线等待中……
- 关于软件的打包安装工具
如果是选中 可以用:选把标签移动要加亮的行
然后 DBGrid1.SelectedRows.CurrentRowSelected :=True;如果是视觉上的加亮,可以设个模块变量 m_Rigth :Booleanprocedure TFmChatRecord.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with DBGrid1 do
begin
if m_Right and Column.Fields['asdf'] ='adsf'(某行) then
begin
Canvas.Font.Color :=clBlack;
Canvas.Brush.Color :=clRed;
end
else
begin
Canvas.Font.Color :=clBlack;
Canvas.Brush.Color :=clinfobk;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
你写的乱七八糟一大堆,没有用
to pdbird(老巢)
你晚上怎么不上QQ?