MDIChild- wie gehts am besten?

[lowell]

Hallo zusammen...

schaut euch mal dies an- funzt einwandfrei!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    N11: TMenuItem;
    N21: TMenuItem;
    Button1: TButton;
    procedure N11Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.N11Click(Sender: TObject);
begin
If not Assigned(Form2) then
Form2:=TForm2.Create(Application);
end;

procedure TForm1.N21Click(Sender: TObject);
begin
If not Assigned(Form3)
then 
  begin 
   Form3:=TForm3.Create(Application);

  end 
else Freeandnil(Form3);

end;

end.

Es gibt einen Unterschied:
Form drei wird mit selbigen Button der sie aufruft auch wieder geschlossen. Bei Form eins muß man wie gewohnt (über das "X") schließen.
Probiert es mal aus- bei mir klappts einwandfrei.

OH- bevor ich es vergesse- wichtig:

In der Unit der jeweiligen Forms wie gewohnt:

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree
end;

und nicht vergessen:

Delphi-Quellcode:

procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2 := nil;
end;

...sonst gibts wieder Fehlermeldungen!

Also, danke euch nochmal!!!

Bis bald,

Grüße Alex...der bestimmt bald wieder was textet