嗨,大家好。我是梦寻,这是我的第一次发帖子,请大家多多鼓励、多多
支持,毕竟嘛,予人方便予己方便。OK,转入正题,现在就来讲如何做一个带
响声的表盘式的 CLOCK。
首先我们应选择新建一个程序,并在窗体中加入以下元件:
Timer1: TTimer;
Image1: TImage;//时钟的表盘
Edit1: TEdit; //日期框
Label1: TLabel;
PopupMenu1: TPopupMenu;
而后在 {$R *.DFM} 下面加入这么一句 {$R CLOCKSOU.RES} <--时钟的声音文件,
(注:CLOCKSOU.RES 是先用windows的记事本新建一个文件,并加入以下几行
CLICKBEL WAVE "CLICKBEL.WAV"
TIMEBELL WAVE "TIMEBELL.WAV"
并存为文件 CLOCKSOU.RC 然后在 DOS解面下用BRCC32.exe 将 CLOCKSOU.RC 编译
为 DELPHI 格式的资源文件 CLOCOSOU.RES,当然,您如果嫌步骤太烦,那吗最简单的,
到我的主页 http://www.suye.8u8.com 下载完整的程序代码)
OK,在完成上面的步骤后我们就可以在窗体的代码筐中输入以下代码。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,unit2, StdCtrls,inifiles,MMSystem, Menus;
type
TForm1 = class(TForm)
Timer1: TTimer;
Image1: TImage;
Edit1: TEdit;
Label1: TLabel;
PopupMenu1: TPopupMenu;
pop1: TMenuItem;
pop2: TMenuItem;
pop4: TMenuItem;
pop3: TMenuItem;
pop5: TMenuItem;
N1: TMenuItem;
procedure Timer1Timer(Sender: TObject);
procedure timdrow(tim:real;long,col:integer);
procedure FormCreate(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure pop1Click(Sender: TObject);
procedure pop2Click(Sender: TObject);
procedure pop4Click(Sender: TObject);
procedure pop5Click(Sender: TObject);
procedure pop3Click(Sender: TObject);
procedure tiniwr();
procedure FormClose(Sender: TObject; v