Delphi5实现秒钟程序

效果图

目的

这个项目非常简单，开发这个是为了方便看秒钟，进行秒杀活动。 虽然目前啥也抢不到，但是有志者事竟成。

完整代码

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Dialogs, Forms,Form, Formprpt, StdCtrls, ExtCtrls;

type
  TForm1 = class(MForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // 更新Label1的Caption属性以显示当前时间  
  Label1.Caption := DateTimeToStr(Now);
end;

end.

TForm1.Timer1Timer是Timer1控件的OnTimer事件的处理程序。每当Timer1的Interval时间过去时（在这个例子中，设置为1秒），这个事件就会被触发。在事件处理程序中，Label1的Caption属性被更新为当前的系统时间，这是通过调用DateTimeToStr(Now)函数实现的，该函数将当前日期和时间转换为一个字符串。

时间网站

今天发现了一个看时间的网站。