转：http://ymg97526.blog.163.com/blog/static/17365816020101021703631/
//添加一个TApplicationEvents组件
//OnMessage:控制着整个应用程序的消息循环
//OnIdle:应用程序空闲时触发
procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin
Memo1.Lines.Add(‘Application Idled.‘);
end;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
Memo1.Lines.Add(Format(‘X=%d;Y=%d‘,[Msg.pt.X,Msg.pt.Y]));
end;
TApplicationEvents-OnMessage、OnIdle
原文：http://www.cnblogs.com/maweiwei/p/7493691.html