MDi-Child ruft modales Fenster auf

[copris]

In einer MDI-Applikation kann das gleiche MDI-Fenster mehrmals geöffnet sein.
In diesem Fenster rufe ich ein Dialog-Fenster mit showmodal auf, was im zuletzt geöffneten Fenster funktioniert.
Wechsle ich nun zu einem anderen Fenster bekomme ich eine Fehlermeldung, ebenso wenn ich das zuletzt geöffnete Fenster schliesse.
ShowModal funktioniert immer nur mit dem zuletzt geöffnetem Fenster.

Wie muss ich das Lösen, dass ShowModal immer das Fenster mit dem aktuellen Fokus reagiert?

Aufruf MDI-Child aus Hauptfenster

Delphi-Quellcode:

procedure TfrmMain.CreatefrmStamm(const _Tag: integer; const Name: string);
  var
    Child: TfrmStamm;
  begin
    menuTxt := Name;
    _CountWindow := _CountWindow +1;
    Application.CreateForm(TfrmStamm, frmStamm);
  frmStamm.Caption := Name + '_' + IntToStr(MDIChildCount);
  end;

Aufruf Modales Fenster von MDI-Child

Delphi-Quellcode:

            with TpDlgNew.Create(self) do
              try
                ShowModal;
              finally
                Free;
                end;

Besten Dank für eure Antworten.

[Olli73]

Zitat:

Zitat von copris

In einer MDI-Applikation kann das gleiche MDI-Fenster mehrmals geöffnet sein.

Delphi-Quellcode:

    Application.CreateForm(TfrmStamm, frmStamm);
  frmStamm.Caption := Name + '_' + IntToStr(MDIChildCount);
  end;

Hallo!

Du schreibst leider nicht, welche Fehlermeldung an welcher Stelle kommt, aber wenn ich eine (MDI-)App programmiere, nehme ich die childs aus der Liste der automatisch erstellten Formulare UND vor allem auch die Variable aus dem erstellten Formular heraus, hier also frmStamm. Das Formular erstelle ich dann mit TfrmStamm.Create(Application) ...

Dann kommt man nämlich nicht mehr in Versuchung frmStamm.Irgendwas zu schreiben, was bei dir immer auf das zuletzt erzeugte Formular zeigt. Ich nehme mal an, dass ein solcher Aufruf den Fehler bei dir auslösen könnte...

Gruß,
Olli

[rollstuhlfahrer]

Zitat:

Zitat von copris

Delphi-Quellcode:

procedure TfrmMain.CreatefrmStamm(const _Tag: integer; const Name: string);
  var
    Child: TfrmStamm;
  begin
    menuTxt := Name;
    _CountWindow := _CountWindow +1;
    Application.CreateForm(TfrmStamm, frmStamm);
  frmStamm.Caption := Name + '_' + IntToStr(MDIChildCount);
  end;

Alleine das kann schon gar nicht funktionieren. Damit das funktioniert benötigst du eine class procedure. Du hast also das Formular erzeugt und rufst diese Prozedur auf. Darin erzeugt sich das Formular nochmals. Eines der beiden sieht man aber nicht, weil es noch wartet, sichtbar gemacht zu werden.
Bitte überdenke nochmals deine Struktur mit der MDI-Anwendung und befolge auch den Hinweis meines Vorredners.

Bernhard