Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2005-06-20 12:06:23 ЛС | профиль | цитата
Вот еще.
Это должно быть по-разному для статического контейнера, и - динамического....
И чистка 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....
Впрочем, корректировки и еще будут, наверное...
Если подумать :)
карма: 9

0