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

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

[Jumpy]

Zitat von Sir Rufo:

@Jumpy
Warum nicht RegisterClass bzw. RegisterClassAlias und FindClass?

Was man nicht kennt, kann man nicht benutzen

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 von Jumpy:

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

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