MDI child form ist nil!?

[Meta777]

Hallo DP,

ich hab nen formular welches momentan den FormState fsNormal hat. Ich würde aber gerne ein MDI child draus machen! Natürlich geht das, aber ich habe dann folgendes Problem:

im OnShow des Forms wird eine ibQuery auf einen TDataModule geöffnet die wiederum auf das form zugreifen muss. Bei fsNormal kein Problem - bei fsMDIChild ist das form = nil!
Gibt es eine Art workaround oder so um das zu um gehen? Oder gibts ein Ereignis or ne message nach dem es erstellt wurde, also das form nicht mehr nil ist?

Hoffe das war verständlich...

Gottes Segen

[Bernhard Geyer]

Zitat von Meta777:

ich hab nen formular welches momentan den FormState fsNormal hat. Ich würde aber gerne ein MDI child draus machen! Natürlich geht das, aber ich habe dann folgendes Problem:

im OnShow des Forms wird eine ibQuery auf einen TDataModule geöffnet die wiederum auf das form zugreifen muss. Bei fsNormal kein Problem - bei fsMDIChild ist das form = nil!
Gibt es eine Art workaround oder so um das zu um gehen? Oder gibts ein Ereignis or ne message nach dem es erstellt wurde, also das form nicht mehr nil ist?

Hoffe das war verständlich...

Nein. Gib mal etwas Code rüber.

Ich vermute mal das die Unit-Globale-Formular-Variable verwendest. Und die sollte man tunlichst vermeiden. Ist nur für die automatische Formularerstellung von Delphi relevant und sollte sonst ignoriert werden.

[Meta777]

Zitat von Bernhard Geyer:

Ich vermute mal das die Unit-Globale-Formular-Variable verwendest. Und die sollte man tunlichst vermeiden. Ist nur für die automatische Formularerstellung von Delphi relevant und sollte sonst ignoriert werden.

Wie sollte man sonst auf das Form zugreifen wenn nicht über diese Variable??

Jetzt noch nen Code-Beispiel:
MDIForm -> Click auf Button soll MDIChild (form2) erzeugen...
MDIChild -> OnCreate ruft DataModul.DoSomething auf welche auf form2 zugreift. geht aber nicht weil form2 nil ist.

Delphi-Quellcode:

unit MDIForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  MDIChild;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
end;

end.

Delphi-Quellcode:

unit MDIChild;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tform2 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  form2: Tform2;

implementation

{$R *.dfm}

uses
  DataModul;

procedure Tform2.FormCreate(Sender: TObject);
begin
  dataMod.DoSomething;
end;

end.

Delphi-Quellcode:

unit DataModul;

interface

uses
  SysUtils, Classes;

type
  TDataMod = class(TDataModule)
  private
    { Private-Deklarationen }
  public
    procedure DoSomething;
    { Public-Deklarationen }
  end;

var
  DataMod: TDataMod;

implementation

{$R *.dfm}

uses
  MDIChild;

procedure TDataMod.DoSomething;
begin
  //This doesn't work because form2 is nil
  form2.Label1.Caption := 'HUHU';
end;

end.

[Flocke]

Form2 := TForm2.Create(Self); An dieser Stelle rufst du TForm2.Create(Self) auf -> das erzeugt das neue Formular und das ruft auch das FormCreate-Ereignis auf und, und und, ...

Die Zuweisung an "Form2" findet erst statt, *NACHDEM* das alles passiert ist und die wieder in TForm1.Button1Click bist.

Workaround:

Delphi-Quellcode:

procedure Tform2.FormCreate(Sender: TObject);
begin
  Form2 := Self;
  dataMod.DoSomething;
end;

[Bernhard Geyer]

Zitat von Meta777:

Zitat von Bernhard Geyer:

Ich vermute mal das die Unit-Globale-Formular-Variable verwendest. Und die sollte man tunlichst vermeiden. Ist nur für die automatische Formularerstellung von Delphi relevant und sollte sonst ignoriert werden.

Wie sollte man sonst auf das Form zugreifen wenn nicht über diese Variable??

Hab zwar immer MDI Vermieden, aber in einer MDI-Anwendung gib es ja i.d.R. mehrere Instanzen deines Child-Formulars. Und da kann ja eine einzelne Variable die nicht aufnehmen. Also muß du (oder das von der VCL-Bereitgestellte Framework) die erzeugten MDI-Childs in einer Liste speichern und sie verwalten. Damit ist die Zeile:
form2.Label1.Caption := 'HUHU'; absolut MDI-Untauglich, da du ja
- entweder für jedes MDI-Fenster eine eigene Datamodul-Instanz erzeugst
- oder über den MDI-Parent die Meldungen/Events verteilt werden

[Robert_G]

Ich finde es immer wieder faszinierend, mit welcher Konsequenz Threads mit offensichtlich ähnlicher Problematik ignoriert werden, die sogar noch auf der gleichen Seite (VCL/SWF/Controls) stehen!

Und da ich immer wieder gerne den Hailopai spiele, der anderen die Threads rauskramt...
http://www.delphipraxis.net/internal...=395120#395120

[Meta777]

Danke erstmal an Flocke für den Workaround. Da das form auch nur einmal erzeugt werden soll ist dies die optimale Lösung.
Und auch an Bernhard für die Tipps.
Mit MDI kenn ich mich eben noch garnicht aus.

@Robert_G: Ich weis zwar nicht wer Hailopai ist aber ich suche vorher mit google oder auch im Board noch ähnlichen Themen. Dein Thema hat meinen grundlegen Problem nichts genützt.

Gottes Segen

[Robert_G]

Zitat von Meta777:

@Robert_G: Ich weis zwar nicht wer Hailopai ist aber ich suche vorher mit google oder auch im Board noch ähnlichen Themen. Dein Thema hat meinen grundlegen Problem nichts genützt.

Es ist nicht möglich, dass du dir das durcheglesen hats, denn es erklärt, warum Flockes Lösung das genaue Gegenteil von Optimal (sorry, aber das tat echt weh) ist. Und vor allem warum globale Formvariablen hier schon prinzipiell Blödsinn sind.
Es würde mich wirklich interessieren, was an dem Thread (welcher EXAKT dein Problem durchkaut) nicht nützlich für die hier geschilderte Problematik ist.

[Meta777]

Zitat von Robert_G:

Es ist nicht möglich, dass du dir das durcheglesen hats...

Im Nachhinein nur überflogen. Hat ich bei der Suche nicht gefunden.

Zitat von Robert_G:

(sorry, aber das tat echt weh).

Hast wohl zu viel falschen Stolz!?

Zitat von Robert_G:

Und vor allem warum globale Formvariablen hier schon prinzipiell Blödsinn sind.
Es würde mich wirklich interessieren, was an dem Thread (welcher EXAKT dein Problem durchkaut) nicht nützlich für die hier geschilderte Problematik ist.

Ein hobby-proger kann sich das vielleicht leisten so einen mehrseitigen Text durchzukauen aber da fehlt mir echt die Zeit für. Und ausserdem könnte ich auch jetzt im nachhinein keine alternative Lösung finden - vielleicht bin ich ja einfach zu blöd ... Und warum globale Formvariablen generell Blödsinn sind hat auch noch keiner geschrieben.
Typen die nur Sprüche oder Behauptungen loslassen bekommen bei mir kein Applaus...

Ich wünsch dir dennoch Gottes Segen

[mirage228]

Hi,

Du könntest ja an die TDataMod Methode einen Paramater vom Typ "TForm2" anfügen, dem Du im Konstruktor von TForm2 "Self" übergibst. So könnten auch "andere" TForm2 die TDataMod Methode verwenden.

mfG
mirage228