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
相关问答：
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
