AV bei benutzen von Eigenschaften eines MDIChilds

[Robert_G]

Zitat von -NIP-:

Das mit dem Self ist schon gut, aber da ich ja in einer Methode eines Objekts arbeite, was sich in der Form befindet auf die ich eigentlich zugreifen will, greift er mit Self leider nur auf das Objekt zu. Wie ich euch verstanden habe, kann man mit self eben nur direkt in einer Methode der Form auf sich selbst zugreifen, oder tue ich euch Unrecht ?

Tue dir selbst einen Gefallen:
Vergesse solange die Tatsache, dass es einen GUI Designer und TForm gibt, bis du die Sprache beherrscht...
Deine Frage zeigt so klar, dass du nicht verstanden hast, dass dein Form auch nix weiter als eine Klasse ist, die von TForm ableitet. Warum sollten für sie andere Regelungen gelten als für andere Klassen?

Warum müssen deine ganzen Objekte überhaupt mit dem Form zu tun haben? Ist das nicht ein Widerpruch in sich?
Wie gesagt, mache dich erstmal über Delphi schlau...

[bigg]

@Robert: Hast du schonmal gehört, das zwei Köche den Brei verderben?
In einer Klasse ist deine vorgehensweise ja vollkommen in Ordnung, außerhalb der Klasse
musst du trotzdem eindeutige Bezeichner angeben und genau das wollte ich ihm näher bringen.
(und genau da wird auch sein Problem liegen...)

ps: in einer klasse rufe ich natürlich gleich die Eigenschaften/Methoden auf

[-NIP-]

Ich weiß sehr wohl, dass eine Form, jede Komponente, etc. eigentlich nur ein Objekt ist.
Vielleicht solltest du mal einen angemsseneren Ton anschlagen. Wenn sowas absolute Anfänger sehen, überlegen sie es sich vielleicht auch zweimal, ob sie hier posten.

Und an Bigg:
Stimmt, du hast mein Problem erkannt. Das mit dem MDIChildren etc. ist schon ordentlich, das löst einige meiner Probleme (danke ), aber wie kann man dann auf einzelne Komponenten auf dem MDIChild zugreifen? Davon weiß diese Methode ja nichts.

[mirage228]

Zitat von -NIP-:

Stimmt, du hast mein Problem erkannt. Das mit dem MDIChildren etc. ist schon ordentlich, das löst einige meiner Probleme (danke ), aber wie kann man dann auf einzelne Komponenten auf dem MDIChild zugreifen? Davon weiß diese Methode ja nichts.

Du musst einen Type-Cast auf die Klasse Deines MDIChilds durchführen, z.B.
TMeineChildKlasse(MDIChild).MeinLabel.Caption := 'Wuppdi'; Ggf. musst Du noch eine Typprüfung mittels is-Operator durchführen, falls Du mehrere MDI-Child-Klassen haben sollest.

mfG
mirgae228

[-NIP-]

Danke für deine flotte Antwort.
Scheinbar gibts es den Typecast MDIChild bei mir nicht.
Oder muss ich etwas dafür einsetzen?
Es tut mir leid, wenn ich dumm frage.

[mirage228]

Zitat von -NIP-:

Danke für deine flotte Antwort.
Scheinbar gibts es den Typecast MDIChild bei mir nicht.
Oder muss ich etwas dafür einsetzen?
Es tut mir leid, wenn ich dumm frage.

Also ich vermute mal, dass "MdiChild" vom Typ "TForm" ist.
Dann musst Du diese Variable, wie oben beschrieben auf die Klasse Deines MdiForms casten.

Zeig mal Deinen bisherigen Code - Was funktioniert denn genau nicht?

mfG
mirage228

[-NIP-]

Also so sieht mein Code im MDIChild aus.

Delphi-Quellcode:

  TFBild = class(TObject)
    Breite: Integer; //Breite des gesamten Bildes
    Hoehe: Integer;  //Höhe des gesamten Bildes
    Gesamtbild: TBitmap32; //Das Bild mit allen zusammengefügten Ebenen u.s.w.
  public
    procedure Intialisieren(Erstellmodus:TErstellmodus);
  end;

var
  //..
  Bildspeicher: TFBild;

//...


procedure TFBild.Intialisieren(Erstellmodus:TErstellmodus);
var JPEGBild : TJPEGImage;
    ZwischenBitmap:TBitmap;
begin
  if Erstellmodus=emNeu then   //Wenn neues Bild dann...
  begin
    TBildfenster1(MDIChild).ClientWidth:= Breite;
    TBildfenster1(MDIChild).ClientHeight:= Hoehe;

    with TBildfenster1(MDIChild).Bild_Img32 do    //Bild_Img32 vorbereiten
    begin
      Width:= Breite;
      Height:= Hoehe;
      Bitmap.Width:= Breite;
      Bitmap.Height:= Hoehe;
    end;
    Gesamtbild.Clear(Color32(FuellFarbe));

    TBildfenster1(MDIChild).Caption:= 'Bild '+IntToStr(BildNummer);
  end;

  if Erstellmodus=emNormalOeffnen then  //Wenn geöffnetes Bild dann...
  begin
    TBildfenster1(MDIChild).ClientWidth:= Breite;
    TBildfenster1(MDIChild).ClientHeight:= Hoehe;

    with TBildfenster1(MDIChild).Bild_Img32 do //Bild_Img32 vorbereiten
    begin
      Width:= Breite;
      Height:= Hoehe;
      Bitmap.Width:= Width;
      Bitmap.Height:= Height;
    end;

    TBildfenster1(MDIChild).Caption:=ExtractFileName(MainForm.OpenPictureDialog1.FileName);

  end;
end;

Der Code ist noch nicth komplett.

[bigg]

du hast das wichtigste vergessen, was steht in der unit deines mdi-formulars?

[-NIP-]

Also, im Anhang habe ich die komplette Unit des MDI-Childs.

[bigg]

Deine Klasse heißt also TBildfenster1.

TBildfenster1(Hauptformular.Mdi..)