要选择一行可以把dgRowSelect设为True,其它的就不知道了
关注中
关注中
解决方案 »
- fast report 问题
- 宜春人在深圳,群号是11681163,欢迎老乡加入。。。。。。。。。。。
- 为什么会出现这样的问题
- ************* 求好的传奇私服服务端下载 **************
- fei19790920(饭桶的马甲(抵制日货))请进,按下ctrl+alt+del后,hook失效!
- 用installshield打包bde的问题。
- 请问如何动态调用DLL啊?要带参数的
- 关于HINT:如何在Listbox or Listview(ViewStyle:=vsreport)中动态显示每一项目的 Hint ?
- delphi xe2 中使用datasnap 错误请指教。
- 请问如何在程序里修改Access的查询
- 关于STRINGGRID的问题,很急,请指教
- CSDN怎么还是不能给分?有同感的请进来UP一下!
在dbgrid的options选中dgRowSelect=true选择任一列:
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
i: Integer;
begin
for i:=0 to DBGrid1.Columns.Count-1 do
DBGrid1.Columns[i].Color:=DBGrid1.Color;//消去以前选中列的颜色
Column.Color:=clred; //你要的颜色
end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
i: Integer;
begin
for i:=0 to DBGrid1.Columns.Count-1 do
DBGrid1.Columns[i].Color:=DBGrid1.Color;//消去以前选中列的颜色
end;