FormularArray den richtigen Create aufrufen! Wie?

[Sir Rufo]

Zitat:

Zitat von Mavarik (Beitrag 1245982)

TFormClass kannte ich bisher noch nicht...:stupid:

Wenn es das nicht geben würde, dann würde es man sich einrichten - was man auch macht, wenn man vererbte Klassen ohne Standard-Konstruktor hat

Delphi-Quellcode:

type
  TFoo = class;

  TFooClass = class of TFoo;

  TFoo = class
    constructor Create( ABar : TBar ); virtual;
    class function CreateFoo( AFooClass : TFooClass; ABar : TBar  ) : TFoo; overload;
    // Registrieren von Nachfahren und erzeugen über den Klassen- oder Alias-Namen
    class procedure RegisterClass( AFooClass : TFooClass ); overload;
    class procedure RegisterClass( const AAlias : string; AFooCLass : TFooClass );
    class function CreateFoo( const AName : string; ABar : TBar ) : TFoo; overload;
  end;

  TSomeFoo = class( TFoo )
  end;

  TConcreteFoo = class( TFoo )
    constructor Create( Bar : TBar ); override;
  end;

class function TFoo.CreateFoo( AFooCLass : TFooClass; ABar : TBar ) : TFoo;
begin
  Result := AFooCLass.Create( ABar );
end;

function CreateFooInstance( AFooClass : TFooClass; ABar : TBar ) : TFoo;
begin
  Result := AFooClass.Create( ABar );
end;

var
  LFoo : TFoo;
  LBar : TBar;

// Erzeugt eine TConcreteFoo-Instanz
LFoo := CreateFooInstance( TConcreteFoo, LBar );
LFoo := TFoo.CreateFoo( TConcreteFoo, LBar );
// Erzeugt eine TSomeFoo-Instanz
LFoo := CreateFooInstance( TSomeFoo, LBar );
LFoo := TFoo.CreateFoo( TSomeFoo, LBar );

[himitsu]

TFormClass selber mußt du nicht unbedingt kennen.

Delphi-Quellcode:

type
  TFormClass = class of TForm;

Das ist ein Typ, in den keine Instantzen des Typs reinkommen (wie bei TForm, wo TForm.Create und Nachkommen rein kommt),
sondern wo Typen reinkommen, welche z.B. davon abgeleitet sind.

Das Wichtigste dabei ist nur, daß die gewünschte Methode (wie z.B. Create) im Basistyp virtual oder dynamic sein muß.

[Jumpy]

Zitat:

Zitat von Sir Rufo (Beitrag 1245968)

@Jumpy
Warum nicht RegisterClass bzw. RegisterClassAlias und FindClass?

Was man nicht kennt, kann man nicht benutzen :oops:

Und weil es bei einem Problem meist schnell gehen muss, nimmt man die erst beste Idee, die man zur Lösung finden kann, auch wenn's bei weiterer Suche oder mehr Erfahrung vllt. einfacheres oder schöneres gegeben hätte.

Hab die Hilfe dazu grad nur mal überflogen und gesehen, dass es das in D6 ja auch schon gibt, muss mir das aber auch nochmal in Ruhe angucken, genau wie das Beispiel in #11, wo mir noch nicht ganz klar ist, was das macht. Sieht aber auf jeden Fall interessant aus.

Zu RegisterClass und FindClass:
Verstehe ich das so, dass ich damit die Konstruktion mit dem Record und dem Array nicht brauchen würde? Aber wo/wie benutzt man dann RegisterClass? Sprich, das muss doch wahrscheinlich für jede Klasse einmal aufgerufen werden, oder? Im Constructor der Factory?

[Sir Rufo]

Zitat:

Zitat von Jumpy (Beitrag 1245998)

Zu RegisterClass und FindClass:
Verstehe ich das so, dass ich damit die Konstruktion mit dem Record und dem Array nicht brauchen würde? Aber wo/wie benutzt man dann RegisterClass? Sprich, das muss doch wahrscheinlich für jede Klasse einmal aufgerufen werden, oder? Im Constructor der Factory?

Das RegisterClass kommt am Besten in den

Delphi-Quellcode:

initialization

Abschnitt, wo diese Klasse auch definiert wurde.

Das FindClass kann dann irgendwo aufgerufen werden.

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

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

[Jumpy]

Zitat:

Zitat von Sir Rufo (Beitrag 1246001)

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:

Zitat von Sir Rufo (Beitrag 1246001)

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

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

[Sir Rufo]

Zitat:

Zitat von Jumpy (Beitrag 1246005)

Zitat:

Zitat von Sir Rufo (Beitrag 1246001)

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 (

Delphi-Quellcode:

.dpr

) eingebunden sein, aber wenn die Klassen registriert sind, dann brauchen diese Units nirgendwo anders mit eingebunden werden.

Zitat:

Zitat von Jumpy (Beitrag 1246005)

Zitat:

Zitat von Sir Rufo (Beitrag 1246001)

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:

Zitat von Sir Rufo (Beitrag 1246010)

Formulare müssen eh irgendwo im Projekt (

Delphi-Quellcode:

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

Zitat von himitsu (Beitrag 1246011)

Zitat:

Zitat von Sir Rufo (Beitrag 1246010)

Formulare müssen eh irgendwo im Projekt (

Delphi-Quellcode:

.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 :mrgreen:

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