Конструктор формы и Reintroduce

← →
Asdor © (2004-06-10 18:11) [0]

Здравстуйте мастера.
Мне нужно сделать предка для форм, которые могут быть как MDIChild, так и обычными. Для этого я в этом предке переопределяю конструктор так:
TBaseClientForm=Class(TForm) public Constructor Create(AOwner:TComponent; AFormStyle:TFormStyle=fsMDIChild); reintroduce; end; implementation constructor TBaseClientForm.Create(AOwner: TComponent; AFormStyle: TFormStyle=fsMDIChild); begin inherited Create(AOwner); FormStyle:=AFormStyle; Visible:=True; end; end.

После определения базового класса формы в пакете я добавил ее в репозиторий.

Далее добавляю в проект форму из репозитория как наследника базовой, накладываю на нее то, что мне нужно. Проект собирается с RunTime Packages.

Если форма в проекте создается мной через явный вызов конструктора - то все создается нормально. А если она попадает в список AutoCreatedForms - то она создается минуя мой конструктор. Непонятно почему и как сделать так, чтобы мой конструктор вызывался в этом случае?

← →
jack128 © (2004-06-10 18:34) [1]

> А если она попадает в список AutoCreatedForms - то она создается
> минуя мой конструктор. Непонятно почему и как сделать так,
> чтобы мой конструктор вызывался в этом случае?
Все как раз понятно. Глянь в файл проэкта и посмотри как создаются autocreate формы...

← →
Asdor © (2004-06-10 18:36) [2]

Да смотрел... И в Forms смотрел...
Потому и сделал конструктор через Reintroduce c дефолтным параметром, чтобы нормально вызывался...
Вот только получается, что после Reintroduce конструктор перестает быть виртуальным методом???

← →
jack128 © (2004-06-10 18:43) [3]

> Потому и сделал конструктор через Reintroduce c дефолтным
> параметром, чтобы нормально вызывался...
если бы дельфи был интерпритатором это может и сработало бы.. ;-)

Как только ты скрыл виртуальный конструктор у своей формы, ты лишил себя возможности AutoCreate"a. А вообще нафиг он те сдался . Тебе сложно одну строчку написать, что ли ;-))

> после Reintroduce конструктор перестает быть виртуальным методом???
После Reintroduce это другой метод с тем же именем

Понятно, что ничего не понятно... :)

Одну строчку написать не сложно :) просто хотелось, чтобы и AutoCreate работал...

А вот еще тогда вопрос:
Почему в Application.CreateForm сделано все вот так:
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference); var Instance: TComponent; begin Instance := TComponent(InstanceClass.NewInstance); TComponent(Reference) := Instance; try Instance.Create(Self); except TComponent(Reference) := nil; raise; end; if (FMainForm = nil) and (Instance is TForm) then begin TForm(Instance).HandleNeeded; FMainForm := TForm(Instance); end; end;
а не вот так:
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference); var Instance: TComponent; begin try Instance := TComponent(InstanceClass.Create(Self)); TComponent(Reference) := Instance; except TComponent(Reference) := nil; raise; end; if (FMainForm = nil) and (Instance is TForm) then begin TForm(Instance).HandleNeeded; FMainForm := TForm(Instance); end; end;
?

Конструктор формы и Reintroduce Найти похожие ветки