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

Вниз

Указатель в виде песочных часов   Найти похожие ветки 

 
Link   (2002-08-05 13:20) [0]

Помогите начинающему программисту!!!
Как проще заставить курсор принять вид песочных часов при попадании на любой объект формы? То есть, чтобы не описывать свойство курсора на каждом объекте. А то это займёт слишком много места и времени.
Заранее спасибо!


 
Виктор Щербаков   (2002-08-05 13:26) [1]

Примерно так:
for i := 0 to ComponentCount - 1 do
begin
if (Components[i] is TControl) then
(Components[i] as TControl).Cursor := crHourGlass;
end;


 
Ученик   (2002-08-05 13:32) [2]

Screen.Cursor := crHourGlass


 
Link   (2002-08-05 13:36) [3]

<Виктор Щербаков

Спасибо!
Но мне надо, чтобы стрелка менялась на время выполнения процедуры, поэтому я вставил её в самое начало процедуры, а получилось, что она меняется в самом конце.


 
Виктор Щербаков   (2002-08-05 13:37) [4]

Application.ProcessMessages после моего кода.


 
Link   (2002-08-05 13:38) [5]

<Ученик

Действует!!
Спасибо!!


 
Виктор Щербаков   (2002-08-05 13:39) [6]

Screen.Cursor := crHourGlass
Дык это для всех окон вообще.


 
Link   (2002-08-05 13:43) [7]

Спасибо, друзья!!



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

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

Наверх





Память: 0.56 MB
Время: 0.022 c
7-48338
ol
2002-05-15 00:16
2002.08.15
вопрос по dll


6-48233
МИФИст
2002-04-22 15:38
2002.08.15
Помогите разобраться с сервером...


3-47951
DenNNis
2002-07-25 08:58
2002.08.15
SQL беда !!!


14-48301
Igorek
2002-07-19 00:07
2002.08.15
Нужен исходник компилятора ObjectPascal


8-48209
_ncux_
2002-04-08 15:30
2002.08.15
I need HELP





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский