Question

DELPHI DBGRID 鼠标点击行变色

我要在dbgrid 里选择多行，用鼠标点击的行都变颜色并保持，就是我鼠标点击其他行后原来的行还是变色的，这样选择多行都变色，鼠标未点击的不变
我的程序要在查询结果中选择多行，然后在对这些行的内容进行排序，统计；我的思路是查询结果显示在dbgrid里，鼠标点击，行的内容复制到stringgrid里，再进行下边的步骤，但是这个选取错了，取消选择有点麻烦，能不能用其他方法实现。

Answer 1

用一个数组来标记每一行的颜色
在dbgrid的onclick事件中写 数组[i]:=true
在dbgrid的ondrawcolumncell中写代码
if 行[i]=true then TDbgrid(Sender).Cavans.color := clRed;
就完了嘛

个人建议双击dbgrid复制到stringgrid里
双击stringgrid返回来

追问

这数组代码怎么写啊，onclick 事件里

追答

//先定义一个数组
var
    a : array[0..maxRow] of Boolean;
begin
    a[DBGrid1.SelectedIndex] := True;
end;

追问

maxRow 未定义

追答

maxrow 你就填一个你的查询预计最大的行数
比如说你查出来的结果可能有8000行绝对不会超过10240行那么就为 array[0..10240]

追问

在dbgrid的ondrawcolumncell中写代码，怎么写啊，是要循环吗，还有那个‘’行‘’用哪个参数？？

追答

发你Q来 我给你源码

Answer 2

用dbgrideh吧

追问

我新手，dbgrideh怎么用？？