Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];

Вниз

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

 
AGENT   (2005-07-21 12:40) [0]

Поменял я курсор в приложении на свой через screen, но когда наводишь его на полосу прокрутки scrollbox появляется стандартный курсор windows.  Тоже самое и при проигрывании видео mediaplayer На panel. Проблема решается с scrollbox если в винде поставить другой курсор. Как через delphi Поменять курсор относительно всего windows? Но mediaplayer все равно выводит стандартный указатель, не смотря на курсор в windows.


 
Lexer ©   (2005-07-21 12:52) [1]

Как вариант, пройтись по всем компонентам:
 Cursor := crMyCursor;
 for i := 0 to Pred(ComponentCount) do
   TControl(Components[i]).Cursor := crMyCursor;


 
AGENT   (2005-07-21 12:57) [2]

Когда я это набрал, посыпались тонны сообщений file not found, и программа останавливалась на строчках с открытием файлов, хотя я это повесил в formcreate


 
AGENT   (2005-07-21 12:58) [3]

А нельзя ли поменять относительно всего windows?


 
Digitman ©   (2005-07-21 13:10) [4]


> AGENT   (21.07.05 12:57) [2]


у тебя ошибка в 17-й строке


 
AGENT   (2005-07-21 14:38) [5]

Какая еще 17 строка?:/


 
Kolan ©   (2005-07-21 14:43) [6]


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


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


 
AGENT   (2005-07-21 14:46) [7]

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

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


 
Lexer ©   (2005-07-21 14:51) [8]

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


 
Kolan ©   (2005-07-21 14:55) [9]

Кароче КОД ДАВАЙ. Про 17 строку это шукта юмора смешная.


 
AGENT   (2005-07-21 14:55) [10]

Откуда вы знаете в какой строке у меня ошибка? Если все работает нормально, но после добавления этих строк начинается какая-то лажа.:)


 
AGENT   (2005-07-21 14:58) [11]

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


 
Kolan ©   (2005-07-21 14:59) [12]


> AGENT   (21.07.05 14:55) [10]

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

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

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

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

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

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


 
AGENT   (2005-07-21 15:00) [13]

Объясняю: при создании формы вызывается функция, которая должна вызыватся только при нажатии на label!!!


 
Lexer ©   (2005-07-21 15:02) [14]

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


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


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


> AGENT   (21.07.05 15:00) [13]

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


 
AGENT   (2005-07-21 15:04) [16]

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


 
Kolan ©   (2005-07-21 15:06) [17]


> AGENT   (21.07.05 15:04) [16]

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


 
AGENT   (2005-07-21 15:08) [18]

Да там листинг большой!1434 строчек. Суть не в этом. Ваш способ изменил курсор также как и screen.cursor, но проблема с combobox и mediaplayer остались


 
Lexer ©   (2005-07-21 15:10) [19]

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:10) [20]

P.s TControl(Components[i]).Cursor := crMyCursor РЕАЛЬНО меняет enabled таймера!!!!!


 
AGENT   (2005-07-21 15:12) [21]

Lexer, 0 эффекта.


 
AGENT   (2005-07-21 15:13) [22]

Даже если scrollbox указать курсор, то на полосе прокрутки будет все равно default windows


 
Digitman ©   (2005-07-21 15:21) [23]


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


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

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


 
AGENT   (2005-07-21 15:24) [24]

Причем здесь мое приложение? Скажите, пожалуйста, как курсор поменять относительно windows.



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

Форум: "Основная";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.49 MB
Время: 0.045 c
1-1121740073
Sour
2005-07-19 06:27
2005.08.07
кодировка ip адреса


3-1119893189
Jungle Forever!
2005-06-27 21:26
2005.08.07
mysql group


14-1121752401
SLP
2005-07-19 09:53
2005.08.07
Графический компонент для отображения направления и силы ветра


3-1120452796
leonidus
2005-07-04 08:53
2005.08.07
Как связать таблицы с использованием движка ADO


4-1118307065
Maxuz
2005-06-09 12:51
2005.08.07
COM порты и Power User





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский