Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.006 c
