Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!
Посылаю Вам свою программку, в котрой есть вкладка Иерархия классов с компонентом Treeview. Подскажите, пожалуйста, как в этом компоненте, при выборе какого-либо класса, например, TLabel, текст во всех Label, использованных в форме, изменялся на другой цвет.

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задала: Наталья В. (статус: Посетитель) Вопрос отправлен: 28 мая 2009, 14:23 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

В принципе просто. При клике по дереву (выделению одного из TTreeNode) надо перебрать все компоненты на форме и дочерних компонентах. Так как в каждый Node записано имя какого-то класса, а каждый объект-наследник TObject в энном поколении, то просто надо сравнивать в цикле ClassName() текущего компонента с TreeView.Selected.Text и, если совпадает, меняем цвет шрифта на красный, к примеру, а если не совпадает, то меняем на цвет по умолчанию.
Свойство Font присутствует в классе, начиная с TControl, но лучше начинать с TWinControl.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 28 мая 2009, 16:10

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.