Generics TForm

[Stefan1286b]

Guten Abend.
Ich versuche gerade Generics mit Ableitungen von TForm insbesondere im Form Designer hinzubekommen.

Folgendes Beispiel:

Unit1

Delphi-Quellcode:

type
TForm1 = class(TForm)   // DFM:   object Form1: TForm1

end;

TForm2<T> = class(TForm1)
public
 A: T;
 B: T;

end;

Unit3

Delphi-Quellcode:

type
TForm3 = class(TForm2<Integer>)

end;

TForm4 = class(TForm3)   // DFM:   inherited Form4: TForm4

end;

Das scheint allerdings alleine deswegen schon nicht zu funktionieren, da es wohl nicht möglich ist das sich zwischen TForm4 und TForm1 eine Klasse befindet die keine DFM hat.
Aber DFM untersützt anscheinend keine Generics.

Jemand eine Idee?

[himitsu]

Du hast natürlich auch eine DFM-Ressource, welche wirklich 'TForm2<Integer>' heißt?

Weiß garnicht, ob < und > in Resourcenbezeichnern erlaubt sind (glaub aber fast nicht dran).

[Uwe Raabe]

Das würde auch nicht gehen, wenn man eine Klasse TForm2Integer = class(TForm2<Integer>) dazwischen schaltet. Generics werden bei visueller Formvererbung einfach nicht unterstützt.

[Rollo62]

Du kannst aber einen eigenen TForm-Interposer bauen, der dann deine eigenen Funktionen mit hereinbringt.
Wenn man es nicht übertreibt, dann bleibt die neue TForm auch ganz normal im Designer verfügbar, es muss nur deine Unit z.B. "FMX.Form.Interposer" immer hinter dem normalen FMX.Form eingebunden werden, damit das neue TForm verwendet wird.

Das geht natürlich für VCL genauso wie für FMX.

Delphi-Quellcode:

unit FMX.Form.Interposer;

interface

Uses
  FMX.Form;


type
  TForm = class( FMX.Form.TForm )

      procedure MeineTolleFunktion;

  end;

[jaenicke]

Ich hätte dafür nie Bedarf, denn die generische Funktionalität gehört zur Formularlogik, nicht zum Formular selbst. Wenn man das entsprechend trennt, hat man das Problem auch nicht.

Es gibt viele Möglichkeiten, z.B. kann man dem Formular eine Property geben, die vom Typ der Basisklasse für die generischen Ableitungen ist, so dass man die dort reinpacken kann. Dann kann das Formular darauf zugreifen. Umgekehrt kann man auch einen TMyFormController<T> verwenden, der das Formular steuert und sich in dessen veröffentlichte Events einklinkt. Für neue Implementierungen ist eher die zweite Variante interessant, die erste, wenn man bestehende Funktionalität auslagern möchte.

[himitsu]

Da im FormDesigner eh immer nur eine generische Dummy-Klasse von TForm verwendet wird, welche "bloß" so wie deine Form-Klasse heißt, und nicht der originale Typ, sind eh keine Published-Property der Vorfahren, sowie überschriebene "Ereignisse" (Create/Loaded/...), im Designer sichtbar bzw. aktiv ... egal welche Art der Vererbung.

Und soll die Form im Designer bearbeitbar oder im Code via Create erstellbar sein, dann müssen alle Vorfahren bis/nach TForm eine DFM-Ressource gleichen Namens besitzen.