Текущий архив: 2009.03.29;
Скачать: CL | DM;

Вниз

наследник 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;  и тут выставляй свой цвет.

---

Страницы: 1 вся ветка

Текущий архив: 2009.03.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.019 c