Внешний вид сайта:

Как скрыть убрать курсор с экрана

Для того, чтобы скрыть или показать курсор мыши с экрана, можно использовать API функцию ShowCursor. Но это касается только нашего приложения, из которого эта функция вызывается.

Если Вы хотите скрыть курсор полностью, во всех окнах и приложениях, то можно просто вынести курсор за пределы экрана при помощи 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;

Комментарии

Нет комментариев. Ваш будет первым!