database - Delphi - 根据当前记录值更改文本颜色

Question

使用连接到 FireBird 数据库的数据库控件。我有一个简单的 dblabel 我想根据当前记录的当前值更改文本颜色

用户使用 dbnavigator 进行导航，我在单击导航器按钮时编写了代码。但是有一个问题，代码总是读取以前的记录值而不是当前的值，所以颜色是错误的!例如:

procedure <navigator button click>;
begin
  if table1.FieldByName('field1').AsString = 'val1' then
    <dblabel.textcolor> := red
  else
    <dblabel.textcolor> := green; 

end;

但正如我所说，该值落后一个记录。这是为什么？更改标签文本颜色的最佳方法是什么？

谢谢

Answer 1

OnButtonClick 导航器的事件在数据集中的事件记录被更改之前触发。一种可能的解决方案是将您的代码挂接到 DataSet 的 OnAfterScroll 事件。