delphi中怎样实现 点击dbgrid的一行改变这行的颜色
我想实现这样的效果，用鼠标单击dbgrid一行，选择一条，颜色变为篮色，在选择一条这条变为篮色，上面选的也还是篮色...
我想实现这样的效果，用鼠标单击dbgrid一行，选择一条，颜色变为篮色，在选择一条这条变为篮色，上面选的也还是蓝色...
这时dbgrid上应该有2条是蓝色的
定义一个数组(存行号),在stringgrid的onselectcell事件里面,读取AROW存到数组里.
然后在DrawColumnCell事件里做个循环读取数组画蓝色就行了
如果仅仅2行的话，对应组件Options属性里面设置就可以满足你地需求了，假如要所有点击的行都选中的话，就要重画了。
我需要在dbgrid里面实现
可以贴出相关代码么？
谢谢...
Delphi(Pascal) code:
//....
var
Form1: TForm1;
RowSel: Array of String;
//....
procedure TForm1.FormCreate(Sender: TObject);
begin
setlength(RowSel,0);
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
SetLength(RowSel,length(RowSel)+1);
RowSel[high(RowSel)]:= ADOQuery1.FieldByName('表里唯一的列').AsString; //即值不会重复
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
i: integer;
b
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
请问delphi中的画布能绘坐标图吗，那位大师有这方面的例子，帮忙发一个，谢谢了！我的邮箱是springbird2006@126.com
tChart控件就可以，还有一些第三控件。下载频道里就有不少。
可不可以说具体点呢，我刚学delp ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
