通过Teditq确定的记录怎样在DBgrid中高亮显示出来
解决方案 »
- PageControl控件
- 关于将两个变量保存到一起
- 动态加载侧栏问题
- delphi中dbgrid输入新数据时判断是否与以前内容重复的问题
- 请教一个OA的问题!
- DELPHI这么多斑竹,为什么不回答这个问题,如何获取文档的作者?实在让人失望!
- 如何判断若干时间无键盘和鼠标输入响应?
- 如何使用control panel applet 来写控制面版组件?还有,联想电脑系统里是怎么加上自己公司的内容的?
- 由于使用了字典表,数据库里的记录能否在DBGIRD中显示时自动转换??有点头疼啊
- 64位win7,Delphi 10 Seattle 下安装uniGUI组件失败,请指教。
- 烦,周六还上班!如何获得文件夹的大小?
- table在open时如果先设定filter,并将filtered设为true, 是否能提高效率?
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdfocused in state) or (gdselected in state) then
begin
form1.DBGrid1.Canvas.Brush.Color:=clblue;
form1.DBGrid1.Canvas.Pen.Mode:=pmmask;
form1.DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
end;
if Trim(Edit1.Text)=Table1.FieldValues[SomeFieldValue] then
//这里怎么写啊?呵呵,学习........