So sollte der Titel lauten:

[MDI] Von zweiter Form ein MDI Fenster auf der Hauptform ansteuern.



Zum Thema:


Ich hab eine MDI-Hauptform (Form1). Dann hab ich ein MDI Fenster (Form2). Und ein nichtMDIFenster (Form3). Jetzt will ich auf der Form3 noch ein MDIfenster machen. Das klappe auch (Application.CreateForm(TForm2,Form2)). Das Fenster erscheint nun in der Form1. Das Problem ist, dass ich über die Form3 was in die Form2 schreiben möchte, aber dann bringt er eine Fehlermeldung.


Das ganze sieht so aus:

markieren

Delphi-Quellcode:

//Aus einem Button aus der Form3
Application.CreateForm(TForm2,Form2);
//-> Hier bringt er die Fehlermeldung ->
TForm2(ActiveMDIChild).Richedit1.Text := '<Mein Text>';

So ich hoffe ihr habt mich verstanden!


PS: hier die Fehlermeldung:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt SC.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 0056831E in Modul 'SC.exe'. Lesen von Adresse 000002F8'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Moin Spider,

prüf doch mal, ob ActiveMdiChild überhaupt einen Wert <> nil enthält.

Moin Chris,

peinliche Frage: Wie soll ich das überprüfen?

Moin Spider,

so z.B.

if ActiveMdiChild = nil then ...

Moin Chris,


ich hab ja drei Formen. In der ersten ist das MDIhauptform, die zweite das MDIChild und das dritte ist normal. Kann ich in das dritte einfach deinen Code schreiben?

ok ich hab deinen Code ausprobiert. Wenn ein MDI da ist dann kommt keine Meldung wenn keins da ist dann kommt eine Meldung. Ich ich erstelle ja davor ein MDIChild.

Achso das mit dem schreiben ist so gemeint:

Ich hab auf Form3 ein Richedit und auf dem MDIChild auch. Das heißt von dem Richedit der Form3 solls in das MDIChild das auf Form1 ist.



Ist echt kompliziert zu erklären

JAAAA Geschafft!


Das war ja sowas von EINFACH!

Hier:

markieren

Delphi-Quellcode:

 if Form1.ActiveMDIChild is TForm2 then
      Form2.Richedit1.Text := '<Mein Text';

Man dass das so einfach ist.