Убрать курсор

← →
Diamond Cat © (2003-05-08 02:07) [0]

Надо убрать курсор т.е. сделать его невидимым по всей области монитора (а не только над своим окном), перемещение его за границы экрана не катит.

← →
MELiFARO © (2003-05-08 05:20) [1]

ShowCursor ( flag: boolean );

← →
Diamond Cat © (2003-05-08 13:00) [2]

Повторяю
> по всей области монитора (а не только над своим окном),
> перемещение его за границы экрана не катит.

← →
REA © (2003-05-08 14:50) [3]

Form.Cursor := crNone?

← →
Guerrillero © (2003-05-08 17:59) [4]

может так подойдет
var
P: TRect;
begin
P := Bounds(Left,Top,Width,Height);
ClipCursor(@P);
ShowCursor(False);

← →
Ich Hasse © (2003-05-08 23:16) [5]

2 Guerrillero
ClipCursor - ограничивает передвижение курсора в пределах P

надо оставить только ShowCursor(False);

← →
Diamond Cat © (2003-05-11 15:32) [6]

Люди читайте внимательней, невидимым по всей области монитора (а не только над своим окном), при showcursor(false);
курсор исчезает только над моим окном

SetSystemCursor()

Понимаешь, его можно спрятать визуально, но работать им всё-равно будет можно... так что уж лучше за экран его!
procedure HideCursor(); var R : TRect; begin R.Left:=GetSystemMetrics(SM_CXSCREEN); R:=Rect(R.Left, 0, R.Left + 16, 16); ClipCursor(@R); SetCursorPos(R.Left, 0); end; procedure ShowCursor(); var R : TRect; begin R:=Rect(0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN)); ClipCursor(@R); SetCursorPos(R.Right div 2, R.Bottom div 2); end;

> Morfein © (12.05.03 03:03)
> Понимаешь, его можно спрятать визуально, но работать им
> всё-равно будет можно... так что уж лучше за экран его!

Понимаешь, мне и нужно чтоб он продолжал работать, мало того при движении мыши он должен появляться снова, а исчезать только при бездействии мыши, при этом сохраняя свои координаты на момент исчезновения и начиная двигаться с них.

> Song © (11.05.03 15:48)
> SetSystemCursor()

вот и я так думал но что-то не выходит

Убрать курсор Найти похожие ветки