Цвет текста заголовка TTabSheet в TPageControl

← →
Provodnick © (2007-04-09 14:40) [0]

Туплю. Помогите. Надо менять цвет текста заголовка 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) [1]

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

Цвет текста заголовка TTabSheet в TPageControl Найти похожие ветки