FormularArray den richtigen Create aufrufen! Wie?

[Mavarik]

Neuer Versuch!

Gegeben sein TForm42,TForm43

Delphi-Quellcode:

type 
   TF : Array[1..2] of TForm;

Um jetzt ein Formular zu erzeugen, fehlt mir aber der Typ (TForm32.Create(Self)). Den bekomme ich doch sicher aus der RTTI oder?

Habe es jetzt umgesetzt mit:

Delphi-Quellcode:

type
  TShowForm = reference to Function(Owner : TComponent):TForm;
var
  F : Array [1..2] of TShowForm;
begin
  F[1] := Function(Owner:TComponent):TForm
            begin
              Result := TForm42.Create(Owner);
            end;
  F[2] := Function(Owner:TComponent):TForm
            begin
              result := TForm43.Create(Owner);
            end;
  F[1](self).Show;
end;

Jemand ne schönere Idee?

Mavarik

[himitsu]

Delphi-Quellcode:

var
  F : Array [1..2] of TFormClass;
begin
  F[1] := TForm42;
  F[2] := TForm43;
  F[1].Create(Self).Show;
end;

So?

Nja, und wie du schon erkannt hasst:
Via TRTTI die Klasse suchen, als TFormClass casten und dann F.Create(Self).Show; .

[Sir Rufo]

Delphi-Quellcode:

var
  F : Array [1..2] of TFormClass;
begin
  F[1].Create( Self ).Show;
end;

Und wenn du deine Forms registrierst mit RegisterClass oder RegisterClassAlias dann kannst du dir die über den Namen suchen FindClass

[Jumpy]

Geht das nicht irgendwie in Richtung factory patterns? Quasi eine "Formfactory"?


Edit: Wahrsch. hab ich die Frage nicht verstanden, dann vergesst den ganzen Rest.


Sowas hab ich mit Tips von hier mal für Frames gemacht.

Delphi-Quellcode:

unit uFrameFactory;

interface

uses Projekt,
     fBaseFrame, fLAFrame, fKSTFrame, fSTOFrame,
     Controls, Classes, ADODB;

Type TBaseFrameClass = class of TBaseFrame;

Type TBaseFrameClassRec = record
  Name:String;
  Header:String;
  Klasse:TBaseFrameClass;
  end;

const FrameClassList: Array[0..8{ggf. erhöhen}] of TBaseFrameClassRec =
      (
       (Name: 'LA';   Header: 'Lohnarten'; Klasse: TLAFrame),
       (Name: 'KST'; Header: 'Kostenstellen'; Klasse: TKSTFrame),
       //...
      );

Type
  TFrameFactory = class
    private
      fParent : TWinControl;
      fOwner : TComponent;
      fCon : TADOConnection;
      //...
      function GetClassFromName(FrameName:String):TBaseFrameClass;
      function GetHeaderFromName(FrameName:String):String;
    public
      constructor create(Owner:TWinControl);overload;
      property Owner:TComponent read fOwner;
      property Parent:TWinControl read fParent write fParent;
      property Con:TADOConnection read fCon write fCon;
      function GetFrame(FrameName:String):TBaseFrame;
  end;


implementation

{ TFrameFactory }

constructor TFrameFactory.create(Owner: TWinControl);
begin
  inherited create;
  fOwner:=Owner;
end;

function TFrameFactory.GetClassFromName(FrameName: String): TBaseFrameClass;
var
  i: Integer;
begin
  Result:=nil;
  for i := 0 to High(FrameClassList) do
    if FrameClassList[i].Name = FrameName then
      begin
      Result := FrameClassList[i].Klasse;
      break;
      end;
end;

function TFrameFactory.GetHeaderFromName(FrameName: String): String;
var
  i: Integer;
begin
  Result:='';
  for i := 0 to High(FrameClassList) do
    if FrameClassList[i].Name = FrameName then
      begin
      Result := FrameClassList[i].Header;
      break;
      end;
end;

function TFrameFactory.GetFrame(FrameName: String): TBaseFrame;
var f:TBaseFrame;
begin
  f:=GetClassFromName(FrameName).Create(Owner);
  f.Parent:=Parent;
  f.Align:=alClient;
  f.Con:=Con;
  f.Header:=GetHeaderFromName(FrameName);
  //...
  Result:=f;
end;


end.

[Bummi]

Delphi-Quellcode:

uses unit4,unit5;
{$R *.dfm}


type
  TShowForm = Reference to Function(Owner : TComponent):TForm;
const
  FC: Array [1..2] of TFormClass=(Tform4,Tform5);
var
  F : Array [1..2] of TShowForm;




procedure TForm3.Button1Click(Sender: TObject);
var
 s:TShowForm;
begin
    s := F[2];
    s(self).Show;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
F[1] :=    Function(Owner:TComponent):TForm
              begin
              Result := FC[1].Create(Owner);
              end;
F[2] :=    Function(Owner:TComponent):TForm
              begin
              Result := FC[2].Create(Owner);
              end

end;

[Sir Rufo]

@Jumpy

Warum nicht RegisterClass bzw. RegisterClassAlias und FindClass?

[Medium]

Kann man Konstruktoren nicht ggf. virtuell deklarieren? Das wäre ja quasi ein Paradebeispiel. (Oder sind sie es eventuell sogar schon? Kann's grad nicht selber prüfen.)

Edit: Ansonsten halt über eine virtuelle Init-Methode, die jede Form-Klasse selbst implementiert.

[Sir Rufo]

Zitat von Medium:

Kann man Konstruktoren nicht ggf. virtuell deklarieren? Das wäre ja quasi ein Paradebeispiel. (Oder sind sie es eventuell sogar schon? Kann's grad nicht selber prüfen.)

Ab TComponent ist der auf jeden Fall virtual

[Medium]

Dann sollte ein Aufruf des Konstruktors über eine Basisklasse ab TComponent immer den richtigen liefern, wie Sir Rufo es oben schon hingeschrieben hat.

[Mavarik]

SUPER! Danke...

TFormClass kannte ich bisher noch nicht...

Hab das bis heute auch noch nie gebraucht...

Danke auf für das FormFactry Beispiel. Soll so was ähnliches werden.

Grüsse Mavarik