Как кзнать цвет парент-а ?

← →
Сан Саныч (2003-05-02 08:50) [0]

Подскажите, плз. - создаю компонент, переопределяю ему color,
т.к. это нужно для вложенных контролов, но для отрисовки
некоторых элементов неклиентской области нужно знать цвет фона -
т.е. цвет parent-а. А как этот цвет узнать ?
Потыкался в (parent as ...).color но бестолку :)
Х.е.л.п. :)

← →
KSergey © (2003-05-02 09:07) [1]

Я может чего недопонимаю, но сделал бы примерно так:

if Assigned(Parent) then MyColor := Parent.Color;

Но не проверял, может чего-то и недопонимаю...

← →
Ученик © (2003-05-02 09:53) [2]

type
TControlAccess = class(TControl);

ParentColor := TControlAccess(Parent).Color;

← →
KSergey © (2003-05-02 12:25) [3]

> Ученик © (02.05.03 09:53)
> type
> TControlAccess = class(TControl);
>
> ParentColor := TControlAccess(Parent).Color;

Не понял, а зачем Parent приводить к TControlAccess?!

Чтобы получить доступ к секции protected, иначе свойство Color будет недоступно.

← →
Сан Саныч (2003-05-02 22:38) [5]

Спасибо, через приведение к TControlAccess работает.
Даже понятно почему работает :)

Как кзнать цвет парент-а ? Найти похожие ветки