Текущий архив: 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.03 c
