大家帮个忙。谢谢。一个组件的使用

Question

可以在设计器中可视地响应Application的事件。如果不用该组件，就必须在程序中手动增加处理方法及赋值。
比如说：
ApplicationEvents.OnMinimize相当于Application.OnMinimize。

Answer 1

//利用该控件的OnMessage事件，下面的代码可用于屏保程序，当有鼠标或键盘按下时退出程序。
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
//相应鼠标和键盘事件
if (Msg.message = WM_RBUTTONDOWN) or  (Msg.message = WM_LBUTTONDOWN)
 or(Msg.message = WM_KEYDOWN) then
begin
  //有鼠标或键盘按下就推出
  close;
end;
end;