Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи
Программирование Delphi



Для того, чтобы скрыть или показать курсор мыши с экрана, можно использовать 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;

По материалам About.com


 

Добавить комментарий


Защитный код
Обновить