Beim OnClick auf Button überprüfen ob ein MDI-Child schon geöffnet ist

CHLINDE

Ich möchte es erstellen und zerstören

Kolumbus

Dann zum Beispiel so:

void __fastcall TFormMain::Button1Click(TObject *Sender)
{
    TForm1 *pInstanzA= new TForm1(0);     // instanziieren
    pInstanzA->ShowModal();               // anzeigen
    delete pInstanzA;                     // Instanz löschen
    // ...
}

Edit: Da die Instanz gleich nach dem Schliessen des Formulars automatisch gelöscht wird, brauchst du bei Button1Click keine Abfrage ob bereits eine Instanz existiert.

Allerdings kannst du mit diesem Code erst wieder auf das Formular mit Button1 zugreifen, nachdem die Instanz geschlossen wurde (ShowModal)!

VergissEs

bool bFormFound=false;

for (int i = MDIChildCount - 1; i >= 0; i--) {
	if ((AnsiString)MDIChildren[i]->ClassName() == "TForm_Test") {
		MDIChildren[i]->Show();
		bFormFound=true; //set found bool to true
	}
}

if (!bFormFound) { //if no form exists
	TForm_Test *Form_Test = new TForm_Test(Application);
	if (Form_Test) {
		Form_Test->Show();
	}
}

Kolumbus

Ansonsten vielleicht so:

void __fastcall TFormMain::Button1Click(TObject *Sender)
{
    if(!pInstanzA)
    {
        TForm1 *pInstanzA= new TForm1(0);     // instanziieren
        pInstanzA->Show();                    // anzeigen
    }
//  delete pInstanzA;                         // Instanz löschen muss dann an anderer Stelle aufgerufen werden
    // ...
}

CHLINDE

Hmm, das Problem bei einer MDI ist, dass das Form schon beim Instanziieren angezeigt wird. Also fällt das

...->ShowModal();

weg. Wenn ich dann aber anschließend das delete mache, dann ist das Formular auch gleich wieder weg.

Kolumbus

Ähhmm... MDI...? Kann es sein, dass du im falschen Forum gepostet hast?

CHLINDE

Würde ich jetzt eigentlich nicht sagen, warum?

VergissEs

Du in der Titelüberschrift steht

Beim OnClick auf Button überprüfen ob ein MDI-Child schon geöffnet ist

scheibar bist du hier falsch?

Linnea

@Kolumbus
du hast etwas vergessen, er meinte MDI-Child-Fenster und davon können mit deiner Methode x-beliebige erstellt werden. Ausserdem funktioniert ShowModal dabei nicht.
diese kleine Funktion sollte helfen:

bool CheckForm(String name)
{
for (int i=0; i<Screen->FormCount; i++)
	{
	if (UpperCase(Screen->Forms[i]->Name) == UpperCase(name))
		{
		Screen->Forms[i]->WindowState = wsMaximized;
		Screen->Forms[i]->BringToFront();
		return true;
		}
	}
return false;
}

//Verwendung
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (!CheckForm("ChildForm1"))
  {
  TChildForm1 * ChildForm1= new TChildForm1(Application);
  }
}

[Edit] etwas langsam heute

VergissEs

@Linnea

Wiso machst du den Umweg über Screen->Forms und nimmst nicht gleich die
MDI Childs?

for (int i = MDIChildCount - 1; i >= 0; i--) { 
    if ((AnsiString)MDIChildren[i]->ClassName() == "TForm_Test") { 
        MDIChildren[i]->Show(); 
    } 
}

Linnea

ok, geht natürlich auch

Kolumbus

Man hab ich gerade lange auf'm Schlauch gestanden...

CHLINDE

Ich wunder mich schon, bin noch am probieren. aber ich denke so wird es klappen. Gebe gleich nochmal Info.

CHLINDE

Funktioniert einwandfrei!

Vielen Dank!