刚才俺突发奇想,,,,,,,,,,,,,

我想做个小程序,,,运行时取系统时间,然后每隔四十分钟,就会弹出一个对话框,显示:"休息一下",,这应该怎么实现呢,DELPHI里有直接这样的控件吗???没有的话用程序应该怎么完成呢,,,
还有,大家不要笑我啊,哈哈

解决方案 »

  1.   

    想法还不少呢用一个timer组件设置Interval属性=40000procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    showmessage( '休息一下' );
    end;
      

  2.   

    放一个Timer控件,Interval属性设置2400000,在Ontimer事件里写showmessage('休息一下');
      

  3.   

    Interval属性=40000
    Interval属性设置2400000=========================
    这个间隔是以什么来计呢,是秒吗?四十分钟那应该是2400啊,还是按什么来计呢?这个值到底应该多少呢
      

  4.   

    40分钟啊 我刚才看错了Interval:=1000*60*40; 这样你可以看明白了
      

  5.   

    hongqi162(失踪的月亮) ( ) 信誉：105    Blog   加为好友  2007-06-20 09:59:20  得分: 0  
     
     
       想法还不少呢用一个timer组件设置Interval属性=40000procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    showmessage( '休息一下' );
    end;
      
     
    ===============================================
    还得保证程序能置顶吧，不然程序如果在后台运行，showmessage也是在后台的
      

  6.   

    还得保证程序能置顶吧，不然程序如果在后台运行，showmessage也是在后台的
    ====================================
    俺太菜,
      

  7.   

    在托盘显示个图标好了,Timer事件唤醒托盘......var
      Ht:HWnd;
    ..
    ..
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
     ..
     ..
      Ht:=findwindow(nil,pchar('Project1'));
      if  Ht<>0   then
      showWindow(Ht,SW_SHOWDEFAULT);
      showmessage( '休息一下' );end;
      

  8.   

    感谢大家的帮忙啊,,,上面的程序我没有看懂,我太菜了,简单地比较适合俺,,,
    最后一个问题,,
    我在页面上又加了一个Lable,想让它显示时间,写了语句没好使,Label1.Caption:=now;这个应该怎么改一下呢,
      

  9.   

    Label1.Caption:=Formatdatetime('YYYY-MM-DD HH:NN:SS',now);
      

  10.   

    Label1.Caption:=Formatdatetime('YYYY-MM-DD HH:NN:SS',now);这个不会动
      

  11.   

    const m = 20    '每隔20分钟提醒一次While(1)
        WScript.Sleep( m*60*1000 )
        MsgBox "请活动一下您的颈部。^_^", vbOkOnly, "贴心小护士"
    WEnd小段的VBS就实现了
      

  12.   

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    Label1.Caption:=Formatdatetime('YYYY-MM-DD HH:NN:SS',now);
    end;
    没机子可调试,你试试.
      

  13.   

    又想到一个功能：
    切换到新桌面以后，在新桌面上运行一个播放器，
    放点A、B、C片，
    这下可以更好的休息
      

  14.   

    又想到一个功能：
    切换到新桌面以后，在新桌面上运行一个播放器，
    放点A、B、C片，
    这下可以更好的休息...................大头鸟注意身体啊， 哈哈~~~~~~~~~~~~~~~
      

  15.   

    上午问的那些都实现了,,现在的问题是这个------------------------------------------------------------------------------
    现在就是程序运行时,把程序最小化之后它就到任务栏上了嘛,然后到时间了它弹出对话框的时候我也看不到啊,,,,只有把程序还原到正常大小的时候才能看到它弹没弹,,那这个程序根本也不过关啊,,,,,得让它到时间以后,弹出对话框的时候得到所有页面的顶部啊,,那让我才能看到啊,
    --------------------------------------------------------------------------------还有 oyb330(不养鱼的鱼缸)的提议,很好我也想实现一、不固定间隔时间，设成由用户输入好了；
    二、最好能隐藏起来，在托盘显示个图标好了；
    三、加入固定时间的提示，如：12：00时，提示：下班吃午餐了。  
     
      

  16.   

    《DELPHI 5开发人员指南》
    第24章   扩展Windows外壳 795
    24.1   托盘图标组件 795
    24.1.1   API 795
    24.1.2   处理消息 797
    24.1.3   图标及提示 797
    24.1.4   鼠标点击 798
    24.1.5   隐藏应用程序 799
    24.1.6   托盘图标应用程序举例 805
      

  17.   

    刚才找到了PDF下载,,,谢谢你的推荐,,,这本书的评价很高
      

  18.   

    得让它到时间以后,弹出对话框的时候得到所有页面的顶部啊,,那让我才能看到啊,
    ==========================================================================var
      Ht:HWnd;
    ..
    ..
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
     ..
     ..
      Ht:=findwindow(nil,pchar('Project1'));
      if  Ht<>0   then
      showWindow(Ht,SW_SHOWDEFAULT);
      application.BringToFront;    //到所有页面的顶部
      showmessage( '休息一下' );end;
      

  19.   

    谁知道在哪里还能买到《DELPHI 5开发人员指南》这本书吗?