FormularArray den richtigen Create aufrufen! Wie?

[Jumpy]

Zitat von Sir Rufo:

Dadurch kann man z.B. der MainForm Zugriff auf alle vorhandenen Formular-Klassen ermöglichen ohne die ganzen Formular-Units dort einzubinden.

Irgendwas entgeht mir hier, denn wenn ich die nicht irgendwo einbinde, wird doch initialization nie durchlaufen?

Zitat von Sir Rufo:

Ich baue mal ein kleines Beispiel zusammen ... stay tuned

Da hab ich heut Abend ja einen Grund nochmal hier reinzugucken.

[Sir Rufo]

Zitat von Jumpy:

Zitat von Sir Rufo:

Dadurch kann man z.B. der MainForm Zugriff auf alle vorhandenen Formular-Klassen ermöglichen ohne die ganzen Formular-Units dort einzubinden.

Irgendwas entgeht mir hier, denn wenn ich die nicht irgendwo einbinde, wird doch initialization nie durchlaufen?

Formulare müssen eh irgendwo im Projekt (.dpr ) eingebunden sein, aber wenn die Klassen registriert sind, dann brauchen diese Units nirgendwo anders mit eingebunden werden.

Zitat von Jumpy:

Zitat von Sir Rufo:

Ich baue mal ein kleines Beispiel zusammen ... stay tuned

Da hab ich heut Abend ja einen Grund nochmal hier reinzugucken.

Jo, fertig ...

Hier der Code der MainForm

Delphi-Quellcode:

unit FormMain;

interface

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

type
  TMainForm = class( TForm )
    FormNames_ListBox : TListBox;
    Form_Panel : TPanel;
    procedure FormNames_ListBoxClick( Sender : TObject );
  private
    FForm : TForm;
    procedure CreateFormFromName( const FormName : string; Parent : TWinControl );
  public
    { Public-Deklarationen }
  end;

var
  MainForm : TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.CreateFormFromName( const FormName : string; Parent : TWinControl );
var
  LClass : TPersistentClass;
begin
  if Assigned( FForm ) then
  begin
    FForm.Release;
    FForm := nil;
  end;

  // Wirft eine Exception, wenn die Klasse nicht gefunden wird
  // LClass := FindClass( FormName );

  // Liefert einfach nur nil, wenn die Klasse nicht gefunden wird
  LClass := GetClass( FormName );
  if Assigned( LClass ) and LClass.InheritsFrom( TForm ) then
  begin
    // Form-Instanz erzeugen
    FForm := TFormClass( LClass ).Create( Self );
    // Ein bisschen Zucker drüber
    FForm.Parent := Parent;
    FForm.BorderStyle := bsNone;
    FForm.Align := alClient;
    // fertig
    FForm.Show;
  end;
end;

procedure TMainForm.FormNames_ListBoxClick( Sender : TObject );
begin
  CreateFormFromName( ( Sender as TListBox ).Items[( Sender as TListBox ).ItemIndex], Form_Panel );
end;

initialization

// In der Regel eigentlich nicht, aber hier ist es lustig :o)
RegisterClass( TMainForm );

end.

[himitsu]

Zitat von Sir Rufo:

Formulare müssen eh irgendwo im Projekt (.dpr ) eingebunden sein, aber wenn die Klassen registriert sind, dann brauchen diese Units nirgendwo anders mit eingebunden werden.

Da sind wir auch schon drauf reingefallen.

Eine Unit war in der DPR für eine BPL eingebunden, aber da diese Unit sonst in keiner anderen Unit aufgerufen wurde und auch nichts "direkt" aus der Unit verwendet wurde...
Es sollte da auch nur etwas registriert werden.
- In einer EXE einkompilert funktioniert es.
- In einer BPL einkompiliert wurde diese Unit nicht initialisiert. Das passerte erst, nachdem die Unit explizit in einer anderen Unit eingebunden wurde.

[Sir Rufo]

Zitat von himitsu:

Zitat von Sir Rufo:

Formulare müssen eh irgendwo im Projekt (.dpr ) eingebunden sein, aber wenn die Klassen registriert sind, dann brauchen diese Units nirgendwo anders mit eingebunden werden.

Da sind wir auch schon drauf reingefallen.

Eine Unit war in der DPR für eine BPL eingebunden, aber da diese Unit sonst in keiner anderen Unit aufgerufen wurde und auch nichts "direkt" aus der Unit verwendet wurde...
Es sollte da auch nur etwas registriert werden.
- In einer EXE einkompilert funktioniert es.
- In einer BPL einkompiliert wurde diese Unit nicht initialisiert. Das passerte erst, nachdem die Unit explizit in einer anderen Unit eingebunden wurde.

Wer will schon mit BPLs arbeiten

[Jumpy]

Danke.

Kriegs in D6 kompiliert und gestartet, muss aber in den initialization Abschnitten jeweils eines der RegisterClassAlias auskommentieren sonst bekomme ich einen Laufzeitfehler. Siehe Bild. Woran könnte das liegen?

Da ich auch ReportMemoryLeaksOnShutdown := True; auskommentieren musste:
Wenn ich X mal hintereinander so das MainForm erzeuge und dann das vorderste wieder wechsele, werden dann die restlichen alle gelöscht (owner ist ja jeweils angegeben)?

[himitsu]

Es kann nur einen geben.
Es darf immer nur eine Klasse, mit dem selben Namen, zur gleichen Zeit registriert sein.

Nochmal was Gleichnamiges registrieren knallt demnach.

[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.