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

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

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

Курсоры

Страницы: 1 2 >
AGENT © (2005-07-21 12:40:00)
Поменял я курсор в приложении на свой через screen, но когда наводишь его на полосу прокрутки scrollbox появляется стандартный курсор windows. Тоже самое и при проигрывании видео mediaplayer На panel. Проблема решается с scrollbox если в винде поставить другой курсор. Как через delphi Поменять курсор относительно всего windows? Но mediaplayer все равно выводит стандартный указатель, не смотря на курсор в windows.

AGENT (2005-07-21 15:24:00) [1]
Причем здесь мое приложение? Скажите, пожалуйста, как курсор поменять относительно windows.

Digitman (2005-07-21 15:21:00) [2]

> Да там листинг большой

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

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

AGENT (2005-07-21 15:13:00) [3]
Даже если scrollbox указать курсор, то на полосе прокрутки будет все равно default windows

AGENT (2005-07-21 15:12:00) [4]
Lexer, 0 эффекта.

AGENT (2005-07-21 15:10:00) [5]
P.s TControl(Components[i]).Cursor := crMyCursor РЕАЛЬНО меняет enabled таймера!!!!!

Lexer (2005-07-21 15:10:00) [6]
Cursor - это свойство TControl, возможно на форме есть какие-то др. компоненты, попробуй так:
for i := 0 to Pred(ComponentCount) do if Components[i] is TControl then TControl(Components[i]).Cursor := crMyCursor;

AGENT (2005-07-21 15:08:00) [7]
Да там листинг большой!1434 строчек. Суть не в этом. Ваш способ изменил курсор также как и screen.cursor, но проблема с combobox и mediaplayer остались

Kolan (2005-07-21 15:06:00) [8]

> AGENT (21.07.05 15:04) [16]

А ты упорный наверно AGENT 007. (В cмысле код так и не дал :) РжуНимагу

AGENT (2005-07-21 15:04:00) [9]
Короче нашел: TControl(Components[i]).Cursor := crMyCursor поменяла enabled таймера на true :)
Курсор изменился, но тоже самое осталось:/

alex-drob (2005-07-21 15:02:00) [10]

> AGENT (21.07.05 15:00) [13]

Объясняю: Тебя просят показать код процедуры.

Lexer (2005-07-21 15:02:00) [11]
> AGENT (21.07.05 14:58) [11]
>А случайно TControl(Components[i]).Cursor := crMyCursor; не вызвовет у объекта событие onclick?

)))) это шутка такая?

AGENT (2005-07-21 15:00:00) [12]
Объясняю: при создании формы вызывается функция, которая должна вызыватся только при нажатии на label!!!

Kolan (2005-07-21 14:59:00) [13]

> AGENT (21.07.05 14:55) [10]

"Так Вакутагин" (с) солдаты. :)
1.
> Откуда вы знаете в какой строке у меня ошибка?

Не знаем потому и [4].
2.

> Если все работает нормально, но после добавления

Не добавляй раз все работает.
3.

> начинается какая-то лажа.:)

КАКАЯ мы что телепаты?

AGENT (2005-07-21 14:58:00) [14]
А случайно TControl(Components[i]).Cursor := crMyCursor; не вызвовет у объекта событие onclick?

AGENT (2005-07-21 14:55:00) [15]
Откуда вы знаете в какой строке у меня ошибка? Если все работает нормально, но после добавления этих строк начинается какая-то лажа.:)

Kolan (2005-07-21 14:55:00) [16]
Кароче КОД ДАВАЙ. Про 17 строку это шукта юмора смешная.

Lexer (2005-07-21 14:51:00) [17]
> AGENT (21.07.05 14:46) [7]
тебе ведь говорят что ошибка у тебя в 17 строке, кстати кажется и в 19...
посмотри их повнимательнее, или выложи их сюда...

AGENT (2005-07-21 14:46:00) [18]
откуда вы взяли 17 строку?
вот это Cursor := crMyCursor;
for i := 0 to Pred(ComponentCount) do
TControl(Components[i]).Cursor := crMyCursor;

некорректно работает.

Kolan (2005-07-21 14:43:00) [19]

> AGENT (21.07.05 14:38) [5]
> Какая еще 17 строка?:/

Вот и Digitman © о том же. Какая она у тебя - эта 17 строка покажи...

AGENT (2005-07-21 14:38:00) [20]
Какая еще 17 строка?:/

Страницы: 1 2 >

Наверх

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