仓库管理软件版1楼: unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
{MainForm: TMainForm;}
Form1:TForm1;
hour : Integer;
minute : Integer;
second : Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
hour:=0;
minute:=0;
second:=0;
Label1.Caption:=＇＇0:0:0＇＇;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False;
hour:=0;
minute:=0;
second:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
text:string;
begin
second:=second+1;
if(second=60)then
begin
second:=0;
minute:=minute+1;
if(minute=60)then
begin
hour:=hour+1;
minute:=0;
end;
end;
text:=IntToStr(hour)+＇＇:＇＇+IntTostr(minute)+＇＇:＇＇+IntToStr(second);
Label1.Caption:=text;
end;

end.

2楼: 要做怎样的闹钟？
时间到了播放声音就行了吧
可以用TMediaPlayer或sndplaysound(＇＇声音.wav＇＇,snd_async)或MCI函数播放 如药品进销存软件

3楼: [:)],获取当前系统时间,然后比较和设置的时间是否相等,如果相等，就开始播放声音,声音也有讲究,我比较喜欢钢琴渠,看你个人爱好了,也可以是一些系统提示音!

4楼: tigerhacker说得对，timer的时间间隔是不准的，往往受到系统其他进程的影响，另外最好不要以相等为条件，改为大于等于

5楼: 多人接受答案了

6楼: 多人接受答案了。