VPF::наследник TForm - Форум программистов

NieL

Дата 28.1.2009, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

Пишу класс-наследник от 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). Что я делаю неправильно? (P.S. Форму регистрирую через RegisterCustomModule)

Akella

Дата 28.1.2009, 20:14 (ссылка)

(голосов:2)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Ну при создании формы ты же сам указываешь цвет:

Цитата(NieL @ 28.1.2009, 18:01

)

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

закоментируй эту строку

Felan

Дата 29.1.2009, 08:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 284
Регистрация: 2.8.2007
Где: Самара

Репутация: 2
Всего: 7

Цитата(NieL @ 28.1.2009, 20:01

)

property Color default clWindow;

И еще, внимательно почитай, что в данном случае означает директива default. Это не установка значения по умолчанию, а указание на то, что если значение поля такое, то его не надо сохранять в *.dfm файл.

--------------------

// Любая сложная система - это темный лес. Каждый в этом лесу протаптывает свои тропинки, по ним и бегает. Лишь изредка, сходя с них, мы находим много интересного, а порою и страшного.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »