Курсоры

← →
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!

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

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

А зачем?

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

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

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