TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[fisipjm]

Hi,

ich versuch mal zu erklären was ich gerne machen würde.
Ich habe ein Programm mit einem Menü als Hauptfenster. Darin gibt es x Einträge die immer für eine Tabelle in einer Datenbank stehen. Das ganz läuft dynamisch. Es gibt also eine "MainForm" die alles notwendige enthält um die Informationen einer Tabelle der Datenbank anzuzeigen. Über eine Abfrage wird nun die Anzahl der Tabellen in der DB Abgefragt und je nach dem wie viele Tabellen da sind Einträge im Menü erstellt. Der Aufruf erfolgt in so fern dynamisch, dass die Form immer mit dem TabellenNamen erzeugt wird und in sich selbst dann die Captions usw. anpasst und die jeweiligen Daten darstellt. Ich habe also stand jetzt 20 Menüpunkte aber nur eine HauptMaske("TMainForm" - Ableitung von "TForm").
Was ich nun gern erreichen würde. Es gibt manche Tabellen wo die Maske einen leicht abweichenden Aufbau zum Standard haben soll. Ich leite mir also in der IDE eine neue Form "TTolleNeueForm" von "TMainForm" ab. Im Menu erstelle ich einen Punkt zum Aufruf händisch. Ich würde jetzt gerne erreichen das beim klick auf den händisch eingefügten Menü Punkt nicht die TMainForm created wird sondern die "TTolleNeueForm". Und das Dynmaisch, also zb. über getclass('T'+Tabellenname), die Forms würden nämlich jeweils wie die Tabellen heißen und über ein RegisterClass im initialize Teil kann ich das dann schön Programmweit abfragen ob es etwas gibt. Nur leider krieg ich das mit dem Create nicht hin.

Ich hoffe es ist einigermaßen verständlich was ich vor habe. :oops:

Grüße
PJM

[BerndS]

Ich habe das mal schnell hingetippt ohne zu testen. Aber so in etwas würde ich das machen, wobei die Funtion GetMainFormClass die entsprechende Formclass ermitteln müsste.

Delphi-Quellcode:

type 
  TMainFormClass = class of TMainForm;

...
var 
  FC: TMainFormClass ;
  F: TMainForm; 
begin
  FC := GetMainFormClass(TableName);
  F := TC.Create(...);
  try
    ....
    F.ShowModal;
  finally
    F.Release;
  end;

 
end;

[Uwe Raabe]

Und was funktioniert an

Delphi-Quellcode:

GetClass('T' + Tabellenname)

jetzt nicht?

[fisipjm]

Zitat:

Zitat von Uwe Raabe (Beitrag 1497587)

Und was funktioniert an

Delphi-Quellcode:

GetClass('T' + Tabellenname)

jetzt nicht?

Also GetClass funktioniert, liefert mir aber logischerweise nur eine TPersistant zurück. Und ich scheitere daran aus dieser Tpersistant dann die Form zu createn. Ich befürchte ich hab da irgendwo noch eine riesen Wissenslücke :oops:

[fisipjm]

Zitat:

Zitat von BerndS (Beitrag 1497586)

Ich habe das mal schnell hingetippt ohne zu testen. Aber so in etwas würde ich das machen, wobei die Funtion GetMainFormClass die entsprechende Formclass ermitteln müsste.

Delphi-Quellcode:

type 
  TMainFormClass = class of TMainForm;

...
var 
  FC: TMainFormClass ;
  F: TMainForm; 
begin
  FC := GetMainFormClass(TableName);
  F := TC.Create(...);
  try
    ....
    F.ShowModal;
  finally
    F.Release;
  end;

 
end;

Was macht GetMainFormClass ?

[BerndS]

Zitat:

Was macht GetMainFormClass ?

Das wäre die Funktion, die anhand des Tabellennamens die Klassse des zu erstellenden Formulars zurück gibt.
Entweder man kodiert das hart oder registriert in einer TList/TDictionary die Formualrtypen und durchsucht diese.
Wenn man nichts findet, könnte es eine Standard geben.

[Jasocul]

Zitat:

Zitat von fisipjm (Beitrag 1497585)

Es gibt manche Tabellen wo die Maske einen leicht abweichenden Aufbau zum Standard haben soll.

Heißt das, dass die Form eigentlich gleich ist und nur die Maske für die Tabelle anders ist? Klingt für mich nach einem sinnvollen Einsatz von Frames. Man nimmt immer die gleiche Form-Klasse und wählt für die Darstellung den passenden Frame aus.

[fisipjm]

Zitat:

Zitat von BerndS (Beitrag 1497613)

Zitat:

Was macht GetMainFormClass ?

Das wäre die Funktion, die anhand des Tabellennamens die Klassse des zu erstellenden Formulars zurück gibt.
Entweder man kodiert das hart oder registriert in einer TList/TDictionary die Formualrtypen und durchsucht diese.
Wenn man nichts findet, könnte es eine Standard geben.

Hab ich das im Prinzip nicht schon durch die RegisterClass funktion? Ich durchsuche die T+TabellenName mit findClass und wenn es was gibt nehm ich die und wenn es nix gibt nehm ich die Standard Form. Es scheitert bei mir whrscheinlich lediglich daran, das mir GetClass ja ein Tpersistant zurück gibt und ich nicht weis wie ich daraus die spziefische Klasse createn kann. Vielleicht geht das auch gar nicht.... Absolutes Neuland für mich :-D

[fisipjm]

Zitat:

Zitat von Jasocul (Beitrag 1497616)

Zitat:

Zitat von fisipjm (Beitrag 1497585)

Es gibt manche Tabellen wo die Maske einen leicht abweichenden Aufbau zum Standard haben soll.

Heißt das, dass die Form eigentlich gleich ist und nur die Maske für die Tabelle anders ist? Klingt für mich nach einem sinnvollen Einsatz von Frames. Man nimmt immer die gleiche Form-Klasse und wählt für die Darstellung den passenden Frame aus.

Ja die Maske und die Aufrufe der Datenbank die darin stattfinden sind unterschiedlich. Aber warum brauch ich dafür TFrame? verschiebt das mein Problem nicht einfach nur eine Ebene Tiefer in die Maske rein?

[fisipjm]

Zitat:

Zitat von BerndS (Beitrag 1497613)

Zitat:

Was macht GetMainFormClass ?

Das wäre die Funktion, die anhand des Tabellennamens die Klassse des zu erstellenden Formulars zurück gibt.
Entweder man kodiert das hart oder registriert in einer TList/TDictionary die Formualrtypen und durchsucht diese.
Wenn man nichts findet, könnte es eine Standard geben.

Und genau darin liegt ja mein Problem, mit getClass bekomme ich eine Tpersistant zurück und nicht die speziefische Klasse die ich eigentlich createn möchte. :oops:
Und über das Tpersistent bekomme ich es nicht gebacken...

[Jasocul]

Zitat:

Zitat von fisipjm (Beitrag 1497618)

Zitat:

Zitat von Jasocul (Beitrag 1497616)

Zitat:

Zitat von fisipjm (Beitrag 1497585)

Es gibt manche Tabellen wo die Maske einen leicht abweichenden Aufbau zum Standard haben soll.

Heißt das, dass die Form eigentlich gleich ist und nur die Maske für die Tabelle anders ist? Klingt für mich nach einem sinnvollen Einsatz von Frames. Man nimmt immer die gleiche Form-Klasse und wählt für die Darstellung den passenden Frame aus.

Ja die Maske und die Aufrufe der Datenbank die darin stattfinden sind unterschiedlich. Aber warum brauch ich dafür TFrame? verschiebt das mein Problem nicht einfach nur eine Ebene Tiefer in die Maske rein?

Wenn ich das bisher richtig verstanden habe, dann verschiebst du das Problem zwar, aber an eine Stelle, wo du es verarbeiten kannst.
Du könntest dann einfach aus deinen Menüpunkten immer die selbe Formklasse verwenden und übergibst beim Create einen Parameter, auf den die Form reagieren kann. Je nach Parameter, wird der passende Frame genutzt.

[fisipjm]

Zitat:

Zitat von Jasocul (Beitrag 1497620)

Wenn ich das bisher richtig verstanden habe, dann verschiebst du das Problem zwar, aber an eine Stelle, wo du es verarbeiten kannst.
Du könntest dann einfach aus deinen Menüpunkten immer die selbe Formklasse verwenden und übergibst beim Create einen Parameter, auf den die Form reagieren kann. Je nach Parameter, wird der passende Frame genutzt.

Wie mach ich dann den Aufruf mit einem Frame? Auch mein Frame müsste dann wieder eine Ableitung von einem "MainFrame" sein und die Ausreißer wären doch auch wieder seperate Ableitungen vom MainFrame. Damit weis ich doch dann in der Form wieder nicht wie ich an die richtige TFrame klasse komme, oder steh ich grad völlig auf dem Schlauch?

[BerndS]

Hier ein einfaches Beispiel:

Delphi-Quellcode:

procedure TForm1.bt1Click(Sender: TObject);
var
  F: TPersistentClass;
  D:TForm;
begin
  F := FindClass('TForm2');
  if Assigned(F)  then
  begin
    Application.CreateForm(TComponentClass(F) ,  D);
    D.Show;
  end;

end;

[Jasocul]

Zitat:

Zitat von fisipjm (Beitrag 1497621)

Wie mach ich dann den Aufruf mit einem Frame? Auch mein Frame müsste dann wieder eine Ableitung von einem "MainFrame" sein und die Ausreißer wären doch auch wieder seperate Ableitungen vom MainFrame. Damit weis ich doch dann in der Form wieder nicht wie ich an die richtige TFrame klasse komme, oder steh ich grad völlig auf dem Schlauch?

An irgendeiner Stelle muss du doch wissen, mit welcher Maske die Tabelle dargestellt werden soll. Wenn du es beim Erstellen der Form weißt, kannst du das Create der Form überschreiben und einen zusätzlichen Parameter übergeben. Dann weiß die Form, welcher Frame beim Create eingebaut werden muss.

Wenn ich so darüber Nachdenke, sollte vielleicht erstmal geklärt werden, ab wann die Anwendung weiß, welche Maske erforderlich ist. Irgendwann muss irgendeine passende Information in der Anwendung ja vorhanden sein.

[BerndS]

Ich habe noch eine Typenprüfung hinzugefügt:

Delphi-Quellcode:

uses
  System.TypInfo;
...

procedure TForm1.bt1Click(Sender: TObject);
var
  F: TPersistentClass;
  D:TForm;
begin
  F := FindClass('TForm2');
  if Assigned(F) and PTypeInfo(F.ClassInfo).TypeData^.ClassType.InheritsFrom(TCustomForm) then
    begin
      Application.CreateForm(TComponentClass(F) ,  D);
      D.Show;
    end;

end;

[Uwe Raabe]

Zitat:

Zitat von fisipjm (Beitrag 1497610)

Also GetClass funktioniert, liefert mir aber logischerweise nur eine TPersistant zurück. Und ich scheitere daran aus dieser Tpersistant dann die Form zu createn. Ich befürchte ich hab da irgendwo noch eine riesen Wissenslücke :oops:

Unter der Annahme, dass TTolleNeueForm von TMainForm abgeleitet ist:

Delphi-Quellcode:

type
  TMainFormClass = class of TMainForm;

var 
  MainFormClass: TMainFormClass;
  PersistentClass: TPersistentClass;
begin
  MainFormClass := TMainForm;
  PersistentClass := GetClass('TTolleNeueForm');
  if PersistentClass <> nil then
    MainFormClass := TMainFormClass(PersistentClass);

  myForm := MainFormClass.Create(Application);
end;

[BerndS]

gelöscht

[uligerhardt]

Zitat:

Zitat von Uwe Raabe (Beitrag 1497630)

Unter der Annahme, dass TTolleNeueForm von TMainForm abgeleitet ist:

Delphi-Quellcode:

type
  TMainFormClass = class of TMainForm;

var 
  MainFormClass: TMainFormClass;
  PersistentClass: TPersistentClass;
begin
  MainFormClass := TMainForm;
  PersistentClass := GetClass('TTolleNeueForm');
  if PersistentClass <> nil then
    MainFormClass := TMainFormClass(PersistentClass);

  myForm := MainFormClass.Create(Application);
end;

Als ein Sicherheitsfanatiker würde ich die Annahme prüfen:

Delphi-Quellcode:

  if Assigned(PersistentClass) then
  begin
    Assert(PersistentClass.InheritsFrom(TMainForm));
    MainFormClass := TMainFormClass(PersistentClass);
  end;

[fisipjm]

Zitat:

Zitat von Uwe Raabe (Beitrag 1497630)

Zitat:

Zitat von fisipjm (Beitrag 1497610)

Also GetClass funktioniert, liefert mir aber logischerweise nur eine TPersistant zurück. Und ich scheitere daran aus dieser Tpersistant dann die Form zu createn. Ich befürchte ich hab da irgendwo noch eine riesen Wissenslücke :oops:

Unter der Annahme, dass TTolleNeueForm von TMainForm abgeleitet ist:

Delphi-Quellcode:

type
  TMainFormClass = class of TMainForm;

var 
  MainFormClass: TMainFormClass;
  PersistentClass: TPersistentClass;
begin
  MainFormClass := TMainForm;
  PersistentClass := GetClass('TTolleNeueForm');
  if PersistentClass <> nil then
    MainFormClass := TMainFormClass(PersistentClass);

  myForm := MainFormClass.Create(Application);
end;

Tut genau was es soll. Vielen dank!:thumb::thumb:
Hab mich in den letzten Tagen mehr mit Klassen und insbesondere auch RTTI auseinander gesetzt. Wilkommen in einer neuen Abstraktionsebene :-D Mein Kopf raucht, aber auf eine gute weise :-)