1.规定时间为,每天的(00:00:01)执行一次.2.执行窗体中的Button1Click事件.

解决方案 »

  1.   

    最简单的,timer控件.
    伪代码如下:
    if now=00:00:01 then
      Button1Click(nil);这种简单的问题最好自己了解一下控件的作用,然后去试验,直接要代码不好。
    另外,最好把Button1Click要执行的功能写到一个过程里面,供Button1Click调用,这样代码无论从结构上和可读性上都改善不少。
      

  2.   

    放一个TTimer,设置每秒触发
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    //
    end;procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      if FormatDateTime('hh:nn:ss', Now)  = '00:00:01' then  Button1Click(Button1);
    end;