наследник TForm
Scot Storch © (2009-01-28 17:50:00)
Пишу класс-наследник от 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:00) [1]
перекрывай метод procedure InitializeNewForm; dynamic; и
тут выставляй свой цвет.
Наверх 
ЧАТ |
Орешник |
|
