delphi DBGridEh 问题

Posted 2023-03-09

DBGridEh的OnGetCellParams事件中
if qymst.FieldByName('spunit').AsString = 'm' then
begin
dbgrideh1.FieldColumns['pcs'].Font.Color := clred;
end
else
dbgrideh1.FieldColumns['pcs'].Font.Color := clnone;为什么当spunit <> m 的时候怎个网格都在闪

OnGetCellParams事件是会一直运行的（相当于刷新），如果你这里要当qymst.FieldByName(\'spunit\').AsString = \'m\'时才改变字体的颜色为红色，那么你完成可以设置所有字体的颜色为clnone，然后将事件改为：
if qymst.FieldByName(\'spunit\').AsString = \'m\' then
begin
dbgrideh1.FieldColumns[\'pcs\'].Font.Color := clred;
end;
这样就好了。 参考技术A 因为一直在重复赋值。当spunit <> m 的时候，字段pcs的字体颜色为空。但是你代码不该放在getcellparams事件中，建议放在DataSource的 dataChange事件中。