Скачать: CL | DM;

Курсоры   Найти похожие ветки 

← →
Gu   (2011-05-13 19:36) [0]

Есть пустая форма и кнопка на ней. При создании формы загружаю два курсора Screen.Cursors[8]:=LoadCursor(HInstance,"CUR1");Screen.Cursors[9]:=LoadCursor(HI nstance,"CUR2"); В событии активации делаю screen.cursor:=8;Button1.cursor:=9; У формы курсор меняется на 8 и у кнопки тоже на 8.

Вопрос: как сделать так, чтобы у кнопки было 9?

если менять скажем так: form1.cursor:=8;Button1.cursor:=9; то все работает норм., но допустим на форме еще куча визуальных контролов, все должны быть с курсором 8, и только 1 кнопка с 9, менять курсор для всех - неудобно, почемуто после screen.cursor:=8 локальные измения курсоров у контролов не работают.

---

← →
Gu   (2011-05-13 19:46) [1]

++ с событиями мауса маусентер\лив на кнопке связываться не хочется, потому как последнее событие не всегда корректно отрабатывает, тогда курсор останется другим для всей формы.

---

← →
_Юрий   (2011-05-13 19:47) [2]

и тем не менее, менять придется для всех.
screen.cursor приоритетнее
ничего особо неудобного тут нет - в цикле пробежаться по компонентам формы с проверкой условий,и присвоить нужный курсор

---

← →
Gu   (2011-05-13 19:56) [3]

ясно. а как проверить, есть ли у компонента свойство "cursor"?

---

← →
clickmaker ©   (2011-05-13 20:00) [4]

form1.Controls

---

← →
Gu   (2011-05-13 20:01) [5]

те.
x1:=main1.ComponentCount-1;
for x:=0 to x1 do (form1.Components[x] as tcontrol).Cursor:=8; не работает (вернее при работе ошибку выдает)

---

← →
Gu   (2011-05-13 20:03) [6]

все, заработало. спасибо.

---

← →
Gu   (2011-05-13 20:04) [7]

никто не спросит "зачем" это нужно? :)

---

← →
Amoeba_   (2011-05-13 21:40) [8]

> Gu   (13.05.11 20:04) [7]
>
> никто не спросит "зачем" это нужно? :)

+100!

Впервые слышу такое от автора вопроса. Всегда было наоборот, приходилось это вытягивать раскаленными клещами.

---

← →
Anatoly Podgoretsky ©   (2011-05-13 22:03) [9]

> Gu  (13.05.2011 20:04:07)  [7]

А зачем?

---

← →
Anatoly Podgoretsky ©   (2011-05-13 22:04) [10]

> Amoeba_  (13.05.2011 21:40:08)  [8]

Так он же не сказал, рано еще клещи выкидывать.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.005 c