！！屏幕保护问题

Question

我做的时候也出现了这个问题
可以这样解决，
在窗体类的public段定义一个整形变量mmc
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  mmc:=mmc+1;
 if mmc>3 then
  close;
end;
我是觉得大于3比较好，你也可以换一个大于2的数
其实就是windows自带的屏保也是要动几次鼠标才会退出的

Answer 1

当然了
在Form1的onCreate事件中
先调用ShowCursor(false)
然后调用SetCursor(0,0)
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (X>15) OR (Y>15) THEN
CLOSE;
end;