各位大侠好，我是个自学DELPHI的菜鸟，我想通过标签控件变色来显示工作完成情况，变红为完成，工作内容为标签上的CAPTION的文字，我想通过读取数据库工作内容来确定完成情况，主要是看是否完成字段的内容为完成来判断，但当数据库完成情况改变时，界面不能够及时更新标签的颜色，我想通过每隔一断时间来查找数据库是否完成字段内容来改变标签颜色，该如何实现呀!怎么才能实现定期来查询数据库呀，特急还望各位大侠帮忙呀！

不懂.... 感觉要跟钩子 有关系

创建线程，功能为查询工作完成情况，并通过消息告知主线程；主线程接到消息后，根据消息内容改变标签控件颜色。
线程中延时用自定义过程wait,

查询工作完成情况
发送消息给主线程（application.handle）
延时
....重复以上过程

主线程处理接收到的消息

procedure TThreadObject.Wait(LatencyTime: Cardinal);
var
  FirstTickCount: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
      Application.ProcessMessages();
      sleep(1);
  until ((GetTickCount - FirstTickCount) >= Longint(LatencyTime)) or Terminated;
end;

新手路过！！！