наследник TForm

← →
Scot Storch (2009-01-28 17:50) [0]

Пишу класс-наследник от TForm. Возникла необходимость использовать по умолчанию цвет клиентской области clWindow. Вот к примеру:
TFormEx = class(TForm) private { Private declarations } public { Public declarations } constructor Create(AOwner: TComponent); override; published { Published declaration } property Color default clWindow; end;

constructor TFormEx.Create(AOwner: TComponent); begin inherited Create(AOwner); Color := clWindow; end;

Проблема в том, что когда я меняю в инспекторе объектов цвет на другой в RunTime форме устанавливается цвет по умолчанию (clWindow). Что я делаю неправильно?

← →
jack128_ (2009-01-28 18:10) [1]

перекрывай метод procedure InitializeNewForm; dynamic; и тут выставляй свой цвет.

наследник TForm Найти похожие ветки