Скачать: CL | DM;

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

← →
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 .

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c