Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

PageControl [D5, Win95/98, Win2k]

tsarevep © (2002-06-23 00:17:00)
Доброе время суток всем!
Подскажите плиз. Простую задачку решить немогу.
На PageControl несколько вкладок. Надо при активации вкладки выделить синим цветом шрифт только на активной вкладке.
Пишу вот так в событии Activate формы.

PageControl.ActivePage.Font.Color:= clBlue;
Ругаться не ругается, но и ничего не происходит.
С уважением.

tsarevep (2002-06-23 22:42:00) [1]
Спасибо!
Вообщем так получается только с пустой формой на которой один только PageControl. А у меня там нагружено куча, может что то перехватывает.
С уважением.

VID (2002-06-23 17:12:00) [2]
вызывай PageControl1Change(self); при событии form.onshow
Кстати, в Activate ты наверное ставил приведённый мною код, а не вызов PageControl1Change(self), и поэтому наверное не получилось.
я проверил - если в Form.Activate вызвать PageControl1Change(self), то всё работает, но лучше всё-таки на form.onshow

tsarevep (2002-06-23 16:05:00) [3]
VID спасибо так даже симпотичнее получилось, только вот как это сделать чтоб уже при загрузке программы вкладка такой-же становилось. В activate для формы тоже самое вставил - не получилось.
С уважением.

Юрий Зотов (2002-06-23 08:54:00) [4]
Причина, видимо, та же, по которой шрифт обычной кнопки тоже нельзя сделать синим. Дело в том, что Button, PageControl и т.д. - это стандартные системные окна и их рисует сама система, а она делает это так, как ЕЙ нравится.

Но выход, похоже, есть - рисовать закладку самому (событие OnDrawTab).

VID (2002-06-23 01:26:00) [5]
приведённый код в некоторой степени решает задачу:

procedure TForm1.PageControl1Change(Sender: TObject);
Var I:Integer;
begin
for i:=0 to PageControl1.PageCount - 1 do
PAgeControl1.Pages[i].Highlighted := false;
PAgeControl1.ActivePage.Highlighted := true;
end;

Новенький в Делфи (2002-06-23 01:21:00) [6]
..а ты хочешь что бы сама вкладка стала синей?
сам смотрел, но ничего не вышло, ... как я понял, этот компонент не позволяет это сделать напрямую... может если как-то извратиться то и получится но это уже к мастерам :)

tsarevep (2002-06-23 00:38:00) [7]
Не чего все стало синее!
А вкладка нет.
С уважением.

Новенький в Делфи (2002-06-23 00:21:00) [8]
для всех компонентов на PageControl нужно установить ParentFont в true, тогда вроде должно получится теоретически :)

Наверх

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