摘要: 转:http://ymg97526.blog.163.com/blog/static/17365816020101021703631/ //添加一个TApplicationEvents组件 //OnMessage:控制着整个应用程序的消息循环 //OnIdle:应用程序空闲时触发 procedure 阅读全文
posted @ 2017-09-08 11:24 绿水青山777 阅读(372) 评论(0) 推荐(0) 编辑
摘要: 例子1 测试 时,CPU并没有占用100% 不知道是否Delphi高版本已优化。 声明:Property OnIdle:TIdleEvent;其中:TIdleEvent是这样声明的:TIdleEvent=Procedure(Sender:TObject;Var Done:Boolean) of Ob 阅读全文
posted @ 2017-09-08 11:12 绿水青山777 阅读(1027) 评论(0) 推荐(0) 编辑