| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Указатель в виде песочных часов
Link © (2002-08-05 13:20:00)Помогите начинающему программисту!!!
Как проще заставить курсор принять вид песочных часов при попадании на любой объект формы? То есть, чтобы не описывать свойство курсора на каждом объекте. А то это займёт слишком много места и времени.
Заранее спасибо!
Link (2002-08-05 13:43:00) [1]Спасибо, друзья!!
Виктор Щербаков (2002-08-05 13:39:00) [2]Screen.Cursor := crHourGlass
Дык это для всех окон вообще.
Link (2002-08-05 13:38:00) [3]<Ученик
Действует!!
Спасибо!!
Виктор Щербаков (2002-08-05 13:37:00) [4]Application.ProcessMessages после моего кода.
Link (2002-08-05 13:36:00) [5]<Виктор Щербаков
Спасибо!
Но мне надо, чтобы стрелка менялась на время выполнения процедуры, поэтому я вставил её в самое начало процедуры, а получилось, что она меняется в самом конце.
Ученик (2002-08-05 13:32:00) [6]Screen.Cursor := crHourGlass
Виктор Щербаков (2002-08-05 13:26:00) [7]Примерно так:
for i := 0 to ComponentCount - 1 do
begin
if (Components[i] is TControl) then
(Components[i] as TControl).Cursor := crHourGlass;
end;
| |
