Как скрыть убрать курсор с экрана
Если Вы хотите скрыть курсор полностью, во всех окнах и приложениях, то можно просто вынести курсор за пределы экрана при помощи API функции ClipCursor.
Вот пример, как это делается:
procedure rShowCursor(bShow: BOOL) ; var r: trect; begin if not bShow then begin // Скрываем курсор r.Top := 0; r.Left := GetSystemMetrics(SM_CXSCREEN) + GetSystemMetrics(SM_CXCURSOR) ; r.Right := r.Left; r.Bottom := 0; ClipCursor(@r) ; SetCursorPos(0,0) ; end else begin // Восстанавливаем курсор ClipCursor(nil) ; SetCursorPos(GetSystemMetrics(SM_CXSCREEN) div 2, GetSystemMetrics(SM_CYSCREEN) div 2) ; end; end;
Комментарии