有个问题请教

emlongxp 2003-04-15 08:52:51
DBGRID的单个记录变颜色!
被选的一个字段的颜色变成其他颜色!
...全文
28 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
emlongxp 2003-04-16
  • 打赏
  • 举报
回复
不是很有用啊
emlongxp 2003-04-15
  • 打赏
  • 举报
回复
if query1.FieldByName(’all’).asstring>40’
这句什么意思啊?
上海老李 2003-04-15
  • 打赏
  • 举报
回复
procedure Tinfo.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if query1.FieldByName(’all’).asstring>40’ then
begin
dbgrid1.Canvas.Font.Color:=clred;
dbgrid1.Canvas.Brush.color:=clyellow;
end
else
begin
dbgrid1.Canvas.Font.Color:=clblue;
dbgrid1.Canvas.Brush.color:=clyellow;
end;

dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;

2,496

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧