【搞定】工作台刷新**

cdz0451 · 发表于 2007-12-19 10:06:49

工作台上，加了个信息采编的显示功能。消息展示没有问题，但是不能即时刷新。就是想做成待办任务的效果有消息来，立刻可以显示

lixy · 发表于 2007-12-19 10:17:59

待办任务也不是即时刷新的

cdz0451 · 发表于 2007-12-19 10:25:25

这个图你看到了吧，意思就是，我在用系统。如果有人发来新的信息，我不能第一时间看到。
只有退出在进来才能再看到。怎么能第一时间看到呢？

lixy · 发表于 2007-12-19 10:27:24

待办任务现在可以在message上提醒。楼主这个只能加个timer控件定时刷新数据集了。

cdz0451 · 发表于 2007-12-19 10:40:32

＝。＝如果定30S刷新一次要怎么实现

yancm · 发表于 2007-12-19 11:12:07

看看Delphi的Timmer控件的帮助

cdz0451 · 发表于 2007-12-19 11:19:49

呵呵，没有Delphi 先给我说说思路吧或者在X3里有没有可参考的代码

Akon · 发表于 2007-12-19 11:49:46

Timer 这个控件,最主要的属性和事件是Interval属性和OnTimer事件

设置Interval值来确定多少时间来触发OnTimer这个事件，Interval的单位是ms

cdz0451 · 发表于 2007-12-19 13:42:03

就是说在 Interval属性设置成30秒在OnTimer 事件里写数据集刷新的代码
是这意思么》

Akon · 发表于 2007-12-19 14:23:22

楼主，你自己做一下，就能感受的到了，你把下面的那段代码放到OnTimer事件中
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
   Timer1.Enabled := false;
   Edit1.Text := '姚密者!';
   Timer1.Enabled := true;
end;

		自动登录	找回密码
密码			立即注册