Статьи
|

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