delphi中Time消息的使用方法
2024-08-22 04:15:53
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
const
TIMER_ID = ;
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, ); // KillTimer(self.Handle, TIMER_ID);
end; procedure TForm1.btsettimeClick(Sender: TObject);
begin
// SetTimer作用:向WINDOWS注册时间消息;参数1000代表每隔1秒触发一次WM_TIMER消息;
SetTimer(self.Handle, , , nil); // SetTimer(self.Handle, TIMER_ID, , nil);
end; end.
最新文章
- 安装gem所需知道的
- 程序中的@Override是什么意思
- WCF的创建及其服务配置
- 最熟悉的陌生人:ListView 中的观察者模式
- cc命令
- leetcode之Find All Numbers Disappeared in an Array
- 一统江湖的大前端(6)commander.js + inquirer.js——懒,才是第一生产力
- Oracle授权
- laravel接值 get post
- python中None与0、Null、false区别
- LeetCode(8):字符串转整数(atoi)
- 将 LDAP 目录用于 Samba 认证
- python学习之re库
- supervisor-program配置
- CentOS7--Firewalld防火墙
- HDU 4240
- 真机测试出现INSTALL_FAILED_USER_RESTRICTED安装错误
- [Windows][C#][.NET][WPF]基于ArcFace2.0+红外双目摄像头的活体检测
- 使用Scrapy命令行工具【导出JSON文件】时编码设置
- Codeforces 1006C:Three Parts of the Array(前缀和+map)