请教一个关于DBGrid的问题 我想在DBGrid中(已显示查询结果),当单击查询结果中的任何一行时该行变色,着重显示被选择的行,(是要一行都变色不是被选择的单元格) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Options :=Options+ [dgRowSelect]Options :=Options-[dgRowSelect] 改变背景颜色:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var Defalt_Color:TColor;begin Defalt_Color := DBGrid1.Canvas.Brush.Color; if ADOQuery1.FieldByName('fparentid').AsInteger=0 then begin DBGrid1.Canvas.Brush.Color:=clRed; DBGrid1.DefaultDrawColumnCell(rect,datacol,Column,state); end; DBGrid1.Canvas.Brush.Color:=Defalt_Color;end;上面的代码是根据条件改变颜色,如果你想要惦记的时候改变颜色,改一下就行了 Options := [dgRowSelect]在属性里面就可以改 又不想做事?有这病的出来啊. 无法调用定义的function?应该怎样写才对?谢谢! 怎么实现在fastreport下的票据连续打印,大虾请帮忙!! 怎么可以和那个条形码输入设备相联系来采入数据? 如何按比例缩小图象?? 寻找delphi条码打印控件急!!谢谢 哪个函数可以得到一个文件名的扩展名? 初学者高分请教。 关于资源文件的问题。 有哪个高手用delphi编过win2000的服务吗?一个很棘手的问题 请教:session的GettableName方法取数据库别名,有其他的方法吗? 求助!(在线等待)
Options :=Options-[dgRowSelect]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Defalt_Color:TColor;
begin
Defalt_Color := DBGrid1.Canvas.Brush.Color;
if ADOQuery1.FieldByName('fparentid').AsInteger=0 then
begin
DBGrid1.Canvas.Brush.Color:=clRed;
DBGrid1.DefaultDrawColumnCell(rect,datacol,Column,state);
end;
DBGrid1.Canvas.Brush.Color:=Defalt_Color;
end;上面的代码是根据条件改变颜色,如果你想要惦记的时候改变颜色,改一下就行了
在属性里面就可以改