Array of Forms

[EWeiss]

Zitat von mkinzler:

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?

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