Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-48197
Alex_31072002
2002-07-31 22:06
2002.08.15
Ресурсы и Runtime packages


3-47958
alexvan
2002-07-26 10:12
2002.08.15
Как ускорить запрос


3-47915
Black Cat
2002-07-24 10:53
2002.08.15
Баг с хранимой процедурой


14-48283
Doom2
2002-07-21 15:54
2002.08.15
Как вывести изображение на время загрузки программы ?


14-48258
Sverik
2002-07-19 18:34
2002.08.15
Как написать прогу общения по локальной сети...