Question

delphi DBGridEh 问题

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 的时候怎个网格都在闪

Answer 1

OnGetCellParams事件是会一直运行的（相当于刷新），如果你这里要当qymst.FieldByName('spunit').AsString = 'm'时才改变字体的颜色为红色，那么你完成可以设置所有字体的颜色为clnone，然后将事件改为：
if qymst.FieldByName('spunit').AsString = 'm' then
begin
dbgrideh1.FieldColumns['pcs'].Font.Color := clred;
end;
这样就好了。

Answer 2

因为一直在重复赋值。当spunit <> m 的时候，字段pcs的字体颜色为空。但是你代码不该放在getcellparams事件中，建议放在DataSource的 dataChange事件中。