怎样才能突出显示某一条记录? 如果用的是dbgird,可以自己画啊!想要怎么想时就怎么显示! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看我的://... private Lx: String;在DBGrid1的DrawColumnCell事件中加入:procedure TTemplyForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);beginif Table1.FieldByName('LOGINID').AsString=Lx then begin DBGrid1.Canvas.Brush.Color:=clRed; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end;end;在DataSource1的DataChange事件中加入:procedure TTemplyForm.DataSource1DataChange(Sender: TObject; Field: TField);beginLx:=Table1.FieldByName('LOGINID').AsString;end;希望你不要把上面太多的代码拷贝进去!LOGINID是主索引! 搜索一下"Dbgrid"或者"stringgrid",答案多的吓死你!!! 关于用fastmm检测内存泄漏的问题? delphi5和delphi6和delphi7可以同时装在一台机器上吗? 搞不懂。。。。关于ADOQUERY 对高手很简单的问题 对access数据库update的问题 电子书下载 注册表中有些键或值被统保护,不能改,怎么办? 用DELPHI6.0中active form写了个控件,能在ASP中用,但没有DLL文件,怎样到另一台计算机上注册 问大家一个关于网格控件的问题 程序运行时不能设置断点,为什么? 如果像delphi那样,将菜单做到controlbar中 哪个没睡?
//...
private
Lx: String;
在DBGrid1的DrawColumnCell事件中加入:
procedure TTemplyForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Table1.FieldByName('LOGINID').AsString=Lx then
begin
DBGrid1.Canvas.Brush.Color:=clRed;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;在DataSource1的DataChange事件中加入:
procedure TTemplyForm.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
Lx:=Table1.FieldByName('LOGINID').AsString;
end;希望你不要把上面太多的代码拷贝进去!LOGINID是主索引!