Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Цвет текста заголовка TTabSheet в TPageControl [D6, XP]


Provodnick ©   (2007-04-09 14:40:00) 

Туплю. Помогите. Надо менять цвет текста заголовка TTabSheet по таймеру (мигание оного). Такой код не работает:


if PageControl.Pages[i].Font.Color = clWindowText then
 PageControl.Pages[i].Font.Color:=clRed
else
 PageControl.Pages[i].Font.Color:=clWindowText;


Никакие repaint`ы и updat`ы не помагают. Мож сообщение какое есть специальное?


Johnmen   (2007-04-09 22:38:00) [1]

Такой код работает. Меняет цвет фонта визуальных контролов (у которых ПарентФонт=Тру) на указанной странице.
А тебе м.б. подойдёт PageControl.Pages[i].Highlighted:=True/False;


Наверх

Титульная страница Поиск, карта сайта Написать письмо