An Prozedur übergebene Parameter gehen verloren.

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin

//mach was

  Daten:=TDaten.Create(MainForm, MainForm, DBTest);

//mach was

end;

Im OnCreate erscheint mir das noch ein wenig früh, da das MainForm zu dieser Zeit evtl. noch gar nicht vollständig initialisiert ist. Und wieso greifst Du auf die globale Variable zurück statt auf Self? Zumindest Letzteres würde ich zunächst versuchen.

[FriendOfDelphi]

Zitat von DeddyH:

Zitat:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin

//mach was

  Daten:=TDaten.Create(MainForm, MainForm, DBTest);

//mach was

end;

Im OnCreate erscheint mir das noch ein wenig früh, da das MainForm zu dieser Zeit evtl. noch gar nicht vollständig initialisiert ist. Und wieso greifst Du auf die globale Variable zurück statt auf Self? Zumindest Letzteres würde ich zunächst versuchen.

Der frühe Zeitpunkt wird wahrscheinlich das Problem sein. Ich habe das Create mal ganz ans Ende gestellt. Bringt aber nichts.
Ein "OnFormularFertiggestellt" gibt es ja nicht, oder? Zumindest habe ich nichts im Objektinspektor gefunden.
Mein erster Versuch war mit Daten:=TDaten.Create(self, self, DBTest); . Da dies aber so nicht funktionierte, hatte ich das geändert und nicht wieder zurück geändert.

[DeddyH]

Du könntest mal versuchshalber Loaded überschreiben, da müsste es IMO funktionieren.

[FriendOfDelphi]

Zitat von DeddyH:

Du könntest mal versuchshalber Loaded überschreiben, da müsste es IMO funktionieren.

Das kenne ich noch nicht.
Hast Du ein Beispiel für mich?

[DeddyH]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  protected
    procedure Loaded; override;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Loaded;
begin
  inherited;
  ShowMessage('Geladen: ' + self.Name);
end;

[Lemmy]

Hi,

schon mal AfterConstruction versucht?

Grüße

[FriendOfDelphi]

Zitat von Lemmy:

Hi,

schon mal AfterConstruction versucht?

Grüße

procedure TForm1.AfterConstruction; habe ich auch gerade ausprobiert. Leider auch keine Veränderung. Der Compiler meldet auch hier an der Stelle Parent := AParent; die Fehlermeldung: "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."

[FriendOfDelphi]

Zitat von DeddyH:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  protected
    procedure Loaded; override;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Loaded;
begin
  inherited;
  ShowMessage('Geladen: ' + self.Name);
end;

Ich habe procedure TForm1.Loaded; ausprobiert. Leider keine Veränderung. Der Compiler meldet weiterhin an der Stelle Parent := AParent; die Fehlermeldung: "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."