delphi drawgrid中填充颜色后怎么显示
就是说，我往一个表格中填充一种颜色后，再往另一个表格中填充时，之前的表格颜色就没有了，急求解决呀...
就是说，我往一个表格中填充一种颜色后，再往另一个表格中填充时，之前的表格颜色就没有了，急求解决呀
展开
2个回答
展开全部
你估计代码写错地方了
应该在onDrawCell中写
if Table1.FieldByName(‘CustNo’).AsInteger > 1500 then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol,
Column, State)
上述的代码可以根据应用的需要进行扩充。例如需要用黑体显示时，只要将对应行改为：
DBGrid1.Canvas.Font.Style := [fsBold];
在表格中插入其他可视控件
应该在onDrawCell中写
if Table1.FieldByName(‘CustNo’).AsInteger > 1500 then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol,
Column, State)
上述的代码可以根据应用的需要进行扩充。例如需要用黑体显示时，只要将对应行改为：
DBGrid1.Canvas.Font.Style := [fsBold];
在表格中插入其他可视控件
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
