| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Убрать курсор [D5, Win95/98, Win2k, WinXP]

Diamond Cat ©   (2003-05-08 02:07:00) 

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

---

Diamond Cat   (2003-05-12 20:34:00) [1]

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

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


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

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

---

Morfein   (2003-05-12 03:03:00) [2]

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

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;


---

Song   (2003-05-11 15:48:00) [3]

SetSystemCursor()

---

Diamond Cat   (2003-05-11 15:32:00) [4]

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

---

Ich Hasse   (2003-05-08 23:16:00) [5]

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

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

---

Guerrillero   (2003-05-08 17:59:00) [6]

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

---

REA   (2003-05-08 14:50:00) [7]

Form.Cursor := crNone?

---

Diamond Cat   (2003-05-08 13:00:00) [8]

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

---

MELiFARO   (2003-05-08 05:20:00) [9]

ShowCursor ( flag: boolean );

---

Наверх