FormularArray den richtigen Create aufrufen! Wie?

[Sir Rufo]

Bei Delphi6 wird wohl bei RegisterClassAlias der Alias und der Klassenname registriert.

Das machen neuere Delphis nicht mehr. Müsstest du aber im Code (RegisterClassAlias ) nachschauen können.

Ja, die Forms werden ja mit einem Owner erzeugt, und selbst wenn nicht, es wird ja ein Parent angegeben und der würde auch dafür sorgen, dass die Instanz aufgeräumt wird

[himitsu]

Es wird nur über den Owner (Besitzer) freigegeben ... der Parent ist nur für die Darstellung.

Application.CreateForm setzt aber überall den Owner auf die Application, also löscht Application das dann, wenn die Anwendung beendet wird.

[Sir Rufo]

Zitat von himitsu:

Es wird nur über den Owner (Besitzer) freigegeben ... der Parent ist nur für die Darstellung.

Application.CreateForm setzt aber überall den Owner auf die Application, also löscht Application das dann, wenn die Anwendung beendet wird.

Delphi-Quellcode:

LForm := TForm.Create( nil );
LForm.Parent := Panel1;
Panel1.Release;

Und schwupps ist auch die LForm-Instanz futsch

[himitsu]

Ist das ein Sonderfall bei den TCustomForms
oder werden alle TWinControl-Instanzen bei Sowas freigegeben?


OK, wenn das ARC mir nun Objekte unterm Arsch wegklaut, warum dann nicht auch die VCL.


[edit]
Ich dachte bisher eigentlich immer nur, daß bei .Parent nur die Anordnung gilt, das aber nicht für die Freigabe genutzt wird.
Jedenfalls gibt die VCL da selber nirgendwo etwas frei.

Aber wenn ich grade nochmal drüber nachdenke ... joaar, in der WinAPI hängen die nur via Parent zusammen, womöglich wird das dann über WM_DESTROY gelöscht.
Obwohl ich da eigentlich eher davon ausgegangen, daß dann nur Handle (HWND) gelöscht wird, aber die Objektinstanz noch da bleibt.

[Jumpy]

Zitat von Sir Rufo:

Bei Delphi6 wird wohl bei RegisterClassAlias der Alias und der Klassenname registriert.

Jo, scheint so zu sein. Hab mich auf TRegGroup.RegisterClassAlias runtergehangelt und da wird RegisterClass aufgerufen und ein FAliasList.AddObject. Da fehlt die Prüfung, ob die Klasse schonmal regisriert ist.

Damit wird RegisterClassAlias aber doch sinnfrei? Oder?

Edit: Ach neh. Ich kann es ja so wenigstens 1x mit einem beliebeigen Alias registrieren und muss nicht den Default Classname wie bei RegisterClass nehmen.

[Sir Rufo]

Zitat von himitsu:

Ist das ein Sonderfall bei den TCustomForms
oder werden alle TWinControl-Instanzen bei Sowas freigegeben?


OK, wenn das ARC mir nun Objekte unterm Arsch wegklaut, warum dann nicht auch die VCL.

Das ist gefühlt schon immer so gewesen bei TControl
Steht auch so in der Doku zu TControl.Parent

[himitsu]

Zitat von Sir Rufo:

Das ist gefühlt schon immer so gewesen bei TControl

Hatte meine Antwort nochmal überdacht und etwas erweitert.

Innerhalb der VCL gibt es da ja keine Probleme, da sich dort die Referenzen bei Parent, Owner, Controls und Components selber aufräumen.

Hmmm, dann dürfte das ja nun im ARC "richtig" funktionieren?
Solange noch eine externe Referenz existiert, düfte dann das Objekt eigentlich nicht mehr entsorgt werden.

Bei deinem Code würde LForm am Ende ja eine ungültige Referenz enthalten.
(OK, nicht sofort, da Release ja verzögert löscht)

[Sir Rufo]

Ähm, das war doch nur kurz und knapp als Beispiel.

Diesen Code wirst du bei mir aktiv niemals finden, denn wer sägt sich schon den Ast ab auf den er gerade geklettert ist

BTW ein try..finally fehlt auch in dem Code ...

[Mavarik]

OK Nochmal!

Eine Frage aus der Kategorie noch keinen Kaffee, wo liegt mein Denkfehler?

Delphi-Quellcode:

type
    TVater = Class(TForm)
      public
        Procedure SetFoo(A:TComponent);Virtual,Abstract;
    end;

    TMyForm = class(TVater)
      public
        Procedure SetFoo(A:TComponent);
   end;

   FC : Class of TForm;

var
  AktForm : TVater;

begin
  FC := GetForm('FormName'); // holt die Registriere Formclass TMyForm... (Source verkürzt)
  AktForm := TVater(FC.Create(Self)); // Blödes Typecast?!

  AktForm.SetFoo(Self); // <- Abstracter Fehler
end;

Stehe gerade auf dem schlauch..

Mavarik

[Sir Rufo]

Du hast override vergessen

BTW
TFormClass ist definiert als class of TForm
Was du da machst mit dem FC ist nicht falsch, aber überflüssig

Nachtrag
So macht es Sinn

Delphi-Quellcode:

type
    TVater = Class( TForm )
      public
        Procedure SetFoo( A : TComponent ); Virtual; Abstract;
    end;

   TVaterClass = Class of TVater;

    TMyForm = class( TVater )
      public
        Procedure SetFoo( A : TComponent ); override;
   end;

var
  AktForm : TVater;
  FC : TFormClass;
begin
  FC := GetForm('FormName'); // holt die Registriere Formclass TMyForm... (Source verkürzt)

  if FC.InheritsFrom( TVater ) then
  begin
    AktForm := TVaterClass( FC ).Create( Self ); // Kein Typecast mehr!
    AktForm.SetFoo(Self); // <- Abstracter Fehler ist weg
  end;
end;