FindClass schlägt fehl bei Mix VCL/FMX bzw. FMX-Komponenten ableiten

[Rainer Wolff]

Hallo,

eigentlich sind es zwei verschiedene Lösungen für das selbe Problem, die ich suche. Damit es nicht zu komplex wird, mache ich 2 Threads auf.

Ich habe jahrelang eine Komponente im Einsatz, die von Pagecontrol abgeleitet ist und in die ich Unterformulare einhänge. Die Unterformulare werden über RegisterClass im initialization-Abschnitt registriert und über ein Konfigurationsfile dynamisch mittels FindClass erzeugt und in das Pagecontrol eingehängt. Alles VCL. Soweit ist auch alles gut.

Nun neue Anforderungen, neues Design, also versucht man mal was mit FMX, aber schrittweise, ich will ja nicht gleich alles von Grund auf neu machen müssen. Ich benutze den Firemonkey-Container von Parnassus. Ein VCL-Container-Formular, einen Firemonkey Container, darin ein FMX-Formular mit Komponenten, passt.

Nun brauche ich aber ein numerisches Eingabefeld. Gibt ja TNumberbox in FMX. Plötzlich bekomme ich Probleme bein Programmstart, da meine Formulare über FindClass nicht mehr gefunden werden??

Sobald ein "uses FMX.Numberbox" im Formular drin ist, schlagen die ganzen FindClass-Aufrufe für meine VCL-Formulare fehl. Den internen Mechanismus hinter RegisterClass/Findclass habe ich zwar angeschaut, aber noch nicht verstanden, was da in welchen Gruppen registriert wird.

Meine Versuche, dann eine eigene Numberbox zu erstellen, beschreibe ich in einem separaten Thread.

[Uwe Raabe]

Du musst vor Aufruf von FindClass erst die passende Class Group aktivieren: ActivateClassGroup(Vcl.StdCtrls.TLabel) , wobei für Vcl.StdCtrls.TLabel jede beliebige, registrierte VCL-Klasse funktioniert.

[Rainer Wolff]

Zitat von Uwe Raabe:

Du musst vor Aufruf von FindClass erst die passende Class Group aktivieren: ActivateClassGroup(Vcl.StdCtrls.TLabel) , wobei für Vcl.StdCtrls.TLabel jede beliebige, registrierte VCL-Klasse funktioniert.

Danke, das hat geholfen. Wie kommt man denn auf so was?