Wie erzeuge ich ein MDI ChildForm2 aus MDI Childform1 per Button or main Menu ?

[Gandimann]

Halo Freunde und Experte,
habe eine Frage und bitte euch um HILFE....

Ich habe mit MDI-Fenster follgende Probleme:

1. Wenn ich New-> ChildForm1 klicke es kommt zwar childform1 aber nach schliesen des Fensters wenn ich nochmals über new-> Childform1 abrufe es funktionier nicht (passiert nichts)
2. Ich versuche das jede MDI-ChildForm nur einmal erscheint.

3. Wie kann ich von Childform aus an Hauptmenu zugreifen z.B. wenn ich auf ein Button auf Childform1 klicke dann es soll NEW->ChildForm3 ansteuren.

Thanx in advance

ps: sorry for my bad deutsch.

Als Anhangsdatei ist mein MDI-Example..bitte kontrollieren.

[Sir Rufo]

Wenn das ChildForm geschlossen wird, dann wird dieses ja auch aus dem Speicher geworfen

Delphi-Quellcode:

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

Das ist ja soweit korrekt, aber die Variable ChildForm1 hat immer noch einen Wert <> nil
Versuch es mal damit:

Delphi-Quellcode:

procedure TChildForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action :=caFree;
  // ChildForm1 auf nil setzen
  If ChildForm1 = Self  then
    ChildForm1 := Nil;
end;

Besser wäre es sogar diesen Code im Event OnDestroy zu platzieren.

[Gandimann]

Zitat von Sir Rufo:

Wenn das ChildForm geschlossen wird, dann wird dieses ja auch aus dem Speicher geworfen

Delphi-Quellcode:

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

Das ist ja soweit korrekt, aber die Variable ChildForm1 hat immer noch einen Wert <> nil
Versuch es mal damit:

Delphi-Quellcode:

procedure TChildForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action :=caFree;
  // ChildForm1 auf nil setzen
  If ChildForm1 = Self  then
    ChildForm1 := Nil;
end;

Besser wäre es sogar diesen Code im Event OnDestroy zu platzieren.

THAAAANK YOUUUUUUUUU....
for your kind help.You are great .
Es hat super funktioniert.

Nun bleibt nur noch Problem #3 bestehen ob ich da einen Hinweis bekommen kann, wäre ich sehr dankbar dafür.

[nuclearping]

Delphi-Quellcode:

unit ChildForm1;

interface

...

implementation

uses
  ...,
  MainForm;

...

procedure TChildForm1.Button1Click(Sender: TObject);
begin
  YourMainFormClass.MenuNewClick(Self);
end;

So?

[Gandimann]

Zitat von nuclearping:

Delphi-Quellcode:

unit ChildForm1;

interface

...

implementation

uses
  ...,
  MainForm;

...

procedure TChildForm1.Button1Click(Sender: TObject);
begin
  YourMainFormClass.MenuNewClick(Self);
end;

So?

geht leider nicht