ParentForm soll ChildForm nicht löschen

[CGEu]

@TBx: das mit Parent auf nil setzen mach ich schon, hat aber nichts mit dem Problem zu tun.

@Bernhard: das ChildForm hat die MainForm als Owner (da automatisch bei Progammstart erzeugt von Delphi)

Ok, zur Verdeutlichung mal etwas ausführlicher. Wenn ich auf der MainForm auf einen Button klicke, wird das ParentForm erzeugt. Dieses wiederrum soll unter anderem das ChildForm beinhalten / anzeigen. Das ChildForm wird aber nicht wie das ParentForm mit .Create() erzeugt, sondern ist schon vorhanden.

Delphi-Quellcode:

procedure TfrmMain.ButtonShowClick()
begin
  frmParent := TfrmParent.Create(Self);
  frmParent.Parent := Self;
  ...
  frmParent.Show;
end;

procedure TfrmMain.ButtonCloseClick()
begin
  frmParent.Close;
  frmParent.Release;
  frmParent := nil;
end;

var
  FChild : TfrmChild;

procedure TfrmParent.FormShow()
begin
  FChild := frmChild;
  FChild.Parent := Self;
  FChild.Align := alClient;
  FChild.BorderStyle =: bsNone;
  FChild.Show;
end;

procedure TfrmParent.FormDestroy()
begin
  FChild := nil;
end;

[WM_CLOSE]

Vielleicht mal anstatt OnDestroy OnBeforeDestroy verwenden. Vielleicht klappt es dann.

Oder vielleicht OnClose, denn schließlich schiebst du das frmChild im OnShow auf das parentForm

[edit]
Ich sehe gerade es gibt kein OnBeforeClose
Dann eben doch OnClose
[/edit]

Grund: TComponent (von dem ist TForm abgeleitet) zerstör alle childControls, bevor OnDestroy aufgerufen wird.

[blauweiss]

Zitat von CGEu:

@TBx: das mit Parent auf nil setzen mach ich schon, hat aber nichts mit dem Problem zu tun.

Hallo CGEu,

und wann bzw. wo machst Du das ? In Deinem Code steht nichts davon, oder habe ich's übersehen...?
Fehlt da nicht etwas in der Art:

Delphi-Quellcode:

procedure TfrmParent.FormDestroy()
begin
  FChild.Parent := nil;
//  FChild := nil; <- wozu das ??
end;

Gruß
blauweiss

[DeddyH]

Den Create-Aufruf den Child würde ich gerne mal sehen.

[David Martens]

Wie schon gesagt dann erstelle doch die "ChildForm" im MainForm mit owner und parent = MainForm.

Jetzt kannst du:
1. die ChildForm anzeigen und verstecken wie du willst, ohne ParentForm
oder
2. ParentForm erstellen owner und parent auf ParentForm setzen und anzeigen und dann VOR den ParentForm.destroy wieder auf MainForm setzen.


Allerdings finde ich Variante 1 viel besser. Du brauchst doch die ParentForm garnicht.

Gruß David

[CGEu]

@blausweis & TBX: Danke das ihr so hartnäckig mit dem NIL gewesen seid.

Natürlich muss es FChild.Parent := nil sein, und nicht FChild := nil !!!

Kaum macht man´s richtig, ...

@DeddyH: Es gibt keinen Create Aufruf von mir, da ja Delphi die ChildForm automatisch erzeugt.

Thx
Christian