功能说明: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;