Screen.Cursor把光标隐藏一段时间

功能说明：Screen.Cursor把光标隐藏一段时间 

var
  MouseHide: Boolean;
{在公共部分声明}

procedureDoMouse;
begin
  ifMouseHidethen
    begin
      Screen.Cursor:=crDefault;{ 恢复鼠标 }
      MouseHide:=False;
    end
    elseForm1.Timer1.Enabled:=True;
end;


procedureTForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
 DoMouse;
end;



procedureTForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 DoMouse;
end;


procedureTForm1.FormKeyDown(Sender: TObject;varKey: Word;
Shift: TShiftState);
begin
 DoMouse;
end;


procedureTForm1.Timer1Timer(Sender: TObject);
begin
 MouseHide:=True;
  Screen.Cursor:=crNone;{ 隐藏鼠标 }
  { 以下这一行可以不要，但会使程序效率降低 }
  Timer1.Enabled:=False;
end;


procedureTForm1.Button1Click(Sender: TObject);
begin
         Screen.Cursor:=crNone;
end;

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/06/02/2531625.html