delphi中Time消息的使用方法
2013-11-11 13:03
465 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; const TIMER_ID = 200; type TForm1 = class(TForm) Label1: TLabel; btkilltime: TButton; btsettime: TButton; procedure Button1Click(Sender: TObject); procedure btkilltimeClick(Sender: TObject); procedure btsettimeClick(Sender: TObject); private { Private declarations } public { Public declarations } // WM_TIMECHANGE只在用户手动改变系统时间时才会产生作用,且只需直接定义就起作用。 procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); message WM_TIMECHANGE; // WM_TIMER需配合KillTimer和SetTimer才能起作用;它保持与系统时间同步触发事件; procedure WMTimer(var Message: TWMTimer); message WM_TIMER; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE); begin ShowMessage('sss'); end; procedure TForm1.WMTimer(var Message: TWMTimer); begin Label1.Caption:=TimeToStr(now); end; procedure TForm1.btkilltimeClick(Sender: TObject); begin // KillTimer作用:向WINDOWS删除时间消息;参数200必须与SetTimer中参数200保持一致,此参数代表所注册的消息ID; KillTimer(self.Handle, 200); // KillTimer(self.Handle, TIMER_ID); end; procedure TForm1.btsettimeClick(Sender: TObject); begin // SetTimer作用:向WINDOWS注册时间消息;参数1000代表每隔1秒触发一次WM_TIMER消息; SetTimer(self.Handle, 200, 1000, nil); // SetTimer(self.Handle, TIMER_ID, 1000, nil); end; end.
View Code
相关文章推荐
- delphi中Time消息的使用方法
- delphi中Time消息的使用方法
- delphi中Message消息的使用方法
- delphi中Message消息的使用方法
- delphi中Message消息的使用方法
- delphi中Message消息的使用方法
- delphi中Message消息的使用方法
- delphi中Message消息的使用方法
- struct tm 和 time_t 时间和日期的使用方法(转)
- delphi中Message消息的使用方法
- Delphi正则表达式使用方法(TPerlRegEx)
- Delphi中Hash表的使用方法
- struct tm 和 time_t 时间和日期的使用方法(转)
- c/c++时间操作(struct tm 和 time_t 时间和日期的使用方法)
- 网站后台登录aspcms 提示错误号:-2147467259,错误描述:操作必须使用一个可更新的查询。sql=update AspCms_Content set TimeStatus=0 where TimeStatus=1 and Timeing <= 解决方法。
- CTime/COleDateTime::Format方法的使用
- DELPHI使用TClientDataSet时不携带MIDAS.DLL的方法
- Delphi 模式窗体返回值ModalResult的使用方法及注意事项
- delphi发送消息控制滚动条使用示例
- Delphi 中使用 ADO 方法打开 MySQL5.0 数据库并避免汉字乱码