Создание формы в мной созданном обьекте.

← →
Andr © (2008-04-24 07:35) [0]

Доброго времени суток. Создана форма fmSpr, на неё выставляю восемь обьектов, кот. видимы:
for k := 0 to 7 do
begin
StOb[k] := TStanObject.Create(fmSpr);
StOb[k].CreateDev(n,spr_ini,Crat); //Произвожу внутренние действия
end;
В CreateDev активизирую ещё один обьект:
StatOut := TStatOut.Create(Self);
который будет производить статисьтику действиий k-го обьекта StOb[k].
constructor TStatOut.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
OutStrLi := TStringList.Create;
end;
А также в StatOut открываю форму которая принадлежит этому проэкту:
procedure TStatOut.OpMem;
begin //OpMem
if not Assigned(fmStatOut) then
begin
Application.CreateForm( TfmStatOut, fmStatOut );
fmStatOut.Caption := "№ "+IntToStr(tag+1)+". Статистика.";
fmStatOut.mmOut.Lines.Text := OutStrLi.Text;
end;
fmStatOut.Show;
end; //OpMem
Не знаю понятно обьяснил последовательность. Т.е. я педпологаю, что в OutStrLi будет хранится и в fmStatOut.mmOut отображтся статистика действий обьекта StOb[k], в отдельности. На самом деле у меня получается одина форма fmStatOut и один StatOut на весь массив StOb из k обектов, при том что я создаю fmStatOut и StatOut отдельно в каждом StOb[k].CreateDev
С уважением, Andr.

← →
icWasya © (2008-04-24 09:06) [1]

Форма fmStatOut должна быть одна на весь проект или из должно быть восемь?

Если она одна, то

procedure TStatOut.OpMem; begin //OpMem if not Assigned(fmStatOut) then begin Application.CreateForm( TfmStatOut, fmStatOut ); end; fmStatOut.Caption := "№ "+IntToStr(tag+1)+". Статистика."; fmStatOut.mmOut.Lines.Text := OutStrLi.Text; fmStatOut.Show; end; //OpMem

если их много, то внутри объекта TStatOut нужно завести поле fmStatOut типа TfmStatOut .

Создание формы в мной созданном обьекте. Найти похожие ветки