Auf Width und Height von verfügbarem Formular zugreifen

[-NIP-]

Hi!

Ich schreibe hier gerade eine MDI-Anwendung und dabei ist Form2 ein verfügbares Formular, was ich beliebig oft aufrufen kann. Soweit klappt auch alles, nur wenn ich auf die Eigenschaften Width und Height zugreife (bzw. um eine PaintBox auf diese Größe zu stellen) gibt es zwar keinen Compilerfehler, aber wenn die Prozedur bei der Laufzeit ausgeführt wird, gibt es einen Fehler. Ich brauche aber diese Eigenschaften, wisst ihr wie ich sie mir holen kann?

-NIP-

[Die Muhkuh]

ActiveMDIChild.Height
ActiveMDIChild.Width

bzw:

TForm2(ActiveMDIChild).PaintBox.Height
TForm2(ActiveMDIChild).PaintBox.Width

[-NIP-]

Wenn ich jetzt versuche die PaintBox auf die Größe der Form2 zu setzen kommt
wieder eine Zugriffsverletzung.
Im Code habe ich das

Delphi-Quellcode:

  PaintBox1.Width:=TForm2(ActiveMDIChild).ClientWidth;
  PaintBox1.Height:=TForm2(ActiveMDIChild).ClientHeight;

in der Create-Prozedur der Form2 stehen. Darf das vielleicht nicht in der Create-Prozedur stehen?

-NIP-

[Kroko1999]

probieres doch mal in OnShow und setze ein Flag: Boolean, damit es nur einmal angepasst wird.

[Muetze1]

Moin!

1. Wenn die PaintBox auf der TForm2 liegt, dann nutze Align oder Anchors um die Paintbox automatisch resizen zu lassen.
2. Prüfe vor dem Zugriff ob die Instanz in Form2 bzw. ActiveMDIChild überhaupt ungleich nil ist, schliesslich ist z.B. ActiveMDIChild Nil, wenn es nicht aktiv ist.
3. Wenn die TForm2 auf der Seite der "verfügbaren Forumulare" steht, dann musst du selber eine Instanz erzeugen - tust du dies?

MfG
Muetze1

[-NIP-]

Ich weis zwar nicht, was du mit Instanz erzeugen meinst (sorry), aber wenn du das hier meinst:
Ich erstelle Form2 wie folgt:
TForm2.Create(self); -NIP-

[Die Muhkuh]

Hmm, MDIChild erstellt man doch so:

Application.CreateForm(TForm2, Form2); // Kann sein, dass die Parameter andersrum gehören, hab grad kein Delphi da

[-NIP-]

Also ich machs so und das klappt bis auf die genannte Sache auch.
Ich hab das aus einem ProgrammierBuch namens "Borland Delphi7 Grundlagen
und Profiwissen"

-NIP-

[-NIP-]

*push*

sorry, aber ich brauche die Lösung. Der bisher gepostete Code hat leider nicht funktioniert.

-NIP-

[Steve]

Hi,

steht der Code immernoch im OnCreate? Schau da mal, ob die PaintBox<>NIL ist...

Gruß
Stephan