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

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