屏保的问题..(200分)搞定再开贴.
做一个屏保程序. 在其中要监测键盘与鼠标. 程序如下:
procedure TForm1.Detect(var Msg:TMsg; var Handled:boolean);
begin
if (Msg.message = WM_KEYDOWN) or (Msg.message = WM_MOUSEMOVE) then
Self.Close;
end;
现在我把这个处理过程赋给 Application.OnMessage 如下:
Application.OnMessage := Self.Detect;
问题:
这一行语句放到哪里好??
我试过放在 Form 的
OnShow、OnCreate、OnActive 事件内,但全部是屏幕一闪窗口就关了。
是没放对地方还是要加其它的代码??