Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Курсоры

Gu © (2011-05-13 19:36:00)
Есть пустая форма и кнопка на ней. При создании формы загружаю два курсора 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 локальные измения курсоров у контролов не работают.

Anatoly Podgoretsky (2011-05-13 22:04:00) [1]
> Amoeba_ (13.05.2011 21:40:08) [8]

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

Anatoly Podgoretsky (2011-05-13 22:03:00) [2]
> Gu (13.05.2011 20:04:07) [7]

А зачем?

Amoeba_ (2011-05-13 21:40:00) [3]

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

+100!

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

Gu (2011-05-13 20:04:00) [4]
никто не спросит "зачем" это нужно? :)

Gu (2011-05-13 20:03:00) [5]
все, заработало. спасибо.

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

clickmaker (2011-05-13 20:00:00) [7]
form1.Controls

Gu (2011-05-13 19:56:00) [8]
ясно. а как проверить, есть ли у компонента свойство 'cursor'?

_Юрий (2011-05-13 19:47:00) [9]
и тем не менее, менять придется для всех.
screen.cursor приоритетнее
ничего особо неудобного тут нет - в цикле пробежаться по компонентам формы с проверкой условий,и присвоить нужный курсор

Gu (2011-05-13 19:46:00) [10]
++ с событиями мауса маусентер\лив на кнопке связываться не хочется, потому как последнее событие не всегда корректно отрабатывает, тогда курсор останется другим для всей формы.

Наверх

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