Array of Forms

[EWeiss]

brrr bin am verkalken ..
Ich habe eine Form angelegt welche nicht Automatisch erzeugt werden soll
aber die eigenschaften der in TFormMain abgelegten Eigenschaften erben soll.
Hier habe ich ein Array angelegt

Delphi-Quellcode:

frmMain: array [1..iTrails] of TfrmMain;

Die Form wird geladen

Delphi-Quellcode:

  Application.Initialize;
  Application.MainFormOnTaskbar := False;
  Application.Run;
  Main;

Delphi-Quellcode:

procedure Main;
 var
  IntI : Integer;
begin
  GDI_Init;
  for IntI  := 1 to iTrails do
  begin
    frmMain[IntI] := TfrmMain.Create(nil);

    frmMain[IntI].Show;
    frmMain[IntI].LoadPng(IntI);
  end;

end;

Mein Problem
Die Anwendung beendet einfach.

gruss

[mkinzler]

Du benötigst eine aktive Hauptform ( Application als Owner)

[EWeiss]

Zitat:

Zitat von mkinzler (Beitrag 1076642)

Du benötigst eine aktive Hauptform ( Application als Owner)

Warum?
Ich übergebe die Originale Form als TObject so das alle eigenschaften dieser von dem Form Array geerbt werden.
Reicht es da nicht wenn ich diese einmal in main deklariere?

Delphi-Quellcode:

frmMain := TfrmMain.Create(nil);

dann muß ich das Array dann halt anders benennen.

Delphi-Quellcode:

var
  frmMain: TfrmMain;
  f: array [1..iTrails] of TfrmMain;

procedure Main;

implementation
{$R *.DFM}

procedure Main;
 var
  IntI : Integer;
begin
  GDI_Init;
  frmMain := TfrmMain.Create(nil);

  for IntI  := 1 to iTrails do
  begin
    f[IntI] := TfrmMain.Create(nil);

    f[IntI].Show;
    f[IntI].LoadPng(IntI);
  end;
  frmMain.Timer1.Enabled := True;

end;

gruss

[mkinzler]

Aber die Application-Objekt besitzt keine aktive Form, deshalb wird das Programm beendet.

[EWeiss]

Zitat:

Zitat von mkinzler (Beitrag 1076651)

Aber die Application-Objekt besitzt keine aktive Form, deshalb wird das Programm beendet.

Ok Danke..