procedure Timertodo(var messag:Tmessage);message WM_TIMER;

procedure TForm1.FormCreate(Sender: TObject);
begin
settimer(form1.Handle,1001,600,nil);
end;

procedure TForm1.Timertodo;
begin
xsum:=0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
killTimer(form1.Handle,1001);
end;

其中WM_TIMER消息没有在TControl和TWinControl中出现。因为SetTimer的第一个参数是句柄，所以我觉得不能给TControl设置，即使父Win控件可以转发给子图形控件，但是一般也没必要这样做。

最新文章

1. iOs基础篇（二十二）—— UIPickerView、UIDatePicker控件的使用
2. Log4j 输出的日志中时间比系统时间少了8小时的解决方法，log4j日志文件重复输出
3. DIjkstra(反向边) POJ 3268 Silver Cow Party || POJ 1511 Invitation Cards
4. 把应用程序exe 注册成为windows 服务的方法
5. C++ Daily 《3》----构造函数可否是虚函数
6. Java GC 面试问题
7. json学习系列（8）JSON与JAVA数据的相互转换实例
8. Hybrid----优秀开源代码解读之JS与iOS Native Code互调的优雅实现方案-备
9. 如何安装Windows 8系统中的telnet组件
10. 【转】使用 NuGet 管理项目库-Phil Haack
11. Eat Candy(暴力，水)
12. jdbc操作步骤和preparedStatment相比Statment的好处
13. 强制删除sql用户链接
14. FZU 2112 Tickets
15. 【Sql】mySQL在windows环境启动
16. tkinter打招呼
17. [Codeforces 946F]Fibonacci String Subsequences
18. Springboot 前后端数据传输 常见误区
19. centos7+nginx负载均衡Tomcat服务
20. JS调用函数时候加括号与只写函数名字的区别 fn与fn()的区别

热门文章

1. 6.11---@RequestMapping注解的6+2个属性---6.11
2. 将电脑浏览器User-Agent识别改成手机浏览器UA几种简单方法
3. javascript DOM编程艺术 第10章问题记录
4. 移动web——媒体查询
5. 【sqli-labs】 less48 GET -Error based -Blind -Numeric -Order By Clause(GET型基于盲注的整型Order By从句注入)
6. 字符串str
7. NBXplorer的配置
8. Java-Class-Miniprogram：com.ylbtech.common.utils.miniprogram.TemplateMessage
9. LINUX -- pthread_detach()与pthread_join()
10. hdu 4018 Parsing URL（字符串截取）