Вот еще.
Это должно быть по-разному для статического контейнера, и - динамического....
И чистка InitMan после Init (или в самом Init) нужна для динамической устойчивости....
А отсюда, мысли такие (думается, что все-таки можно обойтись без заведения дополнительных полей, и т.п.):
[code:1]........................
constructor TClassChildForm_XXX.Create; //Такое - для всех контейнеров
var tmp:boolean;
begin
tmp := Init_ON; //Это новая глобальная переменная, определенная в share
Init_ON := true;
inherited Create;
.........................
EditMulti_XXX.MainClass := Self;
if not tmp then begin
InitMan.Init;
InitMan.Clear // Это новый метод, с прозрачным смыслом
Init_ON := false;
end;
end;[/code:1]
Ну и обойтись без Start для MainForm....
Впрочем, корректировки и еще будут, наверное...
Если подумать :)
Ответов: 9906
Рейтинг: 351
|
|||
карма: 9 |
|