Prüfen, ob ShowModal läuft?

[himitsu]

Zitat:

nachvollziehbar

Nicht wirklich.
OK, in Bezug auf dass du die selbe Form nochmal modal aufrufen willst, obwohl sie gerade sichtbar ist (modal oder nicht) ... ja, da muß eine Exception kommen.

Wenn du die Forms aber nicht automatisch beim Programmstart erstellen lässt, sondern erst beim Anzeigen/Aufrufen dynamisch erzeugst, dann kannst du jedes Fenster mehrmals "gleichzeitig" erzeugen und anzeigen.
(in den Forms z.B. ins OnClose ein Action:=caFree )

aktuell bei dir:
* Application.ModalLevel gibt an, wie viele modale Forms es gibt
* in TForm.FormState steht ob es grade Modal angezeigt wird (fsModal), aber auch einfach auf DeineForm.Visible schauen reicht, also ob die Form schon sichtbar ist