DBGrid双击后颜色能不能修改？

[jiaxianglei]

DBGrid1双击后把该条记录的内容写入Memo1中，同时该条记录的颜色想换一下以表明该条记录已选过
双击多条记录后，双击过的记录都变一下颜色
能不能实现？

[xinyu7737]

表中加字段isSel，如果双击后则为true
with (Sender as TDBGridEh).Canvas do
begin
if ADOQuery1.fieldbyname('Xwlx').AsString='通用类询问笔录' then
if ADOQuery1.fieldbyname('isSel').AsBoolean=true then
begin
Brush.Color :=clSkyBlue;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Column.Field.DisplayText);
end
else
begin
Brush.Color :=clBtnFace;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Column.Field.DisplayText);
end;
end;

[brightyang]

可以的吧~~

自已改一下dbgrid试试

[jiaxianglei]

我是在delphi2007中，控件是DBGridEh，有没有代码，能详细一点吗？急用呀，或者是三方控件？

[cnzzlp]

在数据库中扩展字段记录是否修改,然后在
http://www.delphibbs.com/keylife/iblog_show.asp?xid=27763
然后
在 DBGrid.OnDrawColumnCell(...) 中:

begin
if TableField.AsInteger < 0 then
DBGrid.Canvas.Font.Color := clRed
else
DBGrid.Canvas.Font.Color := clBlack;
DBGrid.DefaultDrawColumnCell(...);
end;

[jiaxianglei]

不行呀
DBGrid1双击后把该条记录的内容写入Memo1中，同时该条记录的颜色想换一下以表明该条记录已选过

[jiaxianglei]

with (Sender as TDBGridEh).Canvas do
begin
if ADOQuery5.FieldByName('IsSel').AsBoolean then
begin
Brush.Color:=clSkyBlue;
FillRect(Rect);
DBGridEh5.DefaultDrawColumnCell(Rect,DataCol,Column,[gdFixed,gdFocused,gdSelected]);
end
else
begin
Brush.Color:=clBtnFace;
FillRect(Rect);
DBGridEh5.DefaultDrawColumnCell(Rect,DataCol,Column,[gdFixed,gdFocused,gdSelected]);
end;
end;

[lyguo]

那你还不如在GRIDE中加CHECKBOX 这样不更好看一些？

[lyguo]

或你双击后，让这条记录消失行不？

[jiaxianglei]

procedure TfrmTyxwbl.DBGridEh5DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
with (Sender as TDBGridEh).Canvas do
begin
if ADOQuery5.FieldByName('IsSel').AsBoolean then
begin
Brush.Color:=clSkyBlue;
FillRect(Rect);
DBGridEh5.DefaultDrawColumnCell(Rect,DataCol,Column,
[gdFixed,gdFocused,gdSelected]);
end
else
begin
Brush.Color:=clBtnFace;
FillRect(Rect);
DBGridEh5.DefaultDrawColumnCell(Rect,DataCol,Column,
[gdFixed,gdFocused,gdSelected]);
end;
end;
end;