如何实现?当点击DBGIRD的一行数据时,这行数据的所有各项都被选中(变为深颜色),而不是只有一项数据被选中?? 如何实现?当点击DBGIRD的一行数据时,这行数据的所有各项都被选中(变为深颜色),而不是只有一项数据被选中??还有自己手动写代码配置ADO和在ADO属性里配置,有什么不同??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 If ((State = [gdSelected]) Or (State = [gdSelected, gdFocused])) Then Begin DBGIRD.Canvas.Brush.Color := clSilver; //file://当前选中行用红色 DBGIRD.Canvas.Font.Size := 10; DBGIRD.Canvas.Font.Style := [fsBold]; DBGIRD.Canvas.Font.Color := clYellow; DBGIRD.Canvas.pen.mode := pmCopy; DBGIRD.Canvas.TextRect(Rect, Rect.left, Rect.top, Column.field.asstring); End; 选中需要实现这一功能的DBGrid,在属性编辑器中如下设置:展开Options -> dgRowSelect 设为true Options:=Options+ dgRowSelect ; Options -> dgRowSelect 设为true DBGrid1.Options﹕=DBGrid1.Options+ dgRowSelect 关于fastreport4.0打印debgird里内容的问题 求助老鸟们,能编译,但取不到数据. 谁能给我一个D7的DelphiMM.dll,我的Delphi没这个文件 treeview的滚动条颜色怎么改呀?谢谢 一个用于分页的SQL语句问题 为什么TCPClient的OnReceive事件不被触发?100分 屏蔽鼠标右键后,怎么恢复??? 如何获得计算机的分辨率? 求救!! 使用自定义的图标时编译出错 为什么我写程序总觉得很累? 这是什么错误啊,小弟都头疼死了(急,在线等)
Begin
DBGIRD.Canvas.Brush.Color := clSilver; //file://当前选中行用红色
DBGIRD.Canvas.Font.Size := 10;
DBGIRD.Canvas.Font.Style := [fsBold];
DBGIRD.Canvas.Font.Color := clYellow;
DBGIRD.Canvas.pen.mode := pmCopy;
DBGIRD.Canvas.TextRect(Rect, Rect.left, Rect.top, Column.field.asstring);
End;
展开Options -> dgRowSelect 设为true