RegisterClasses und RTTI - dynamisches Registrieren aller Klassen zur Laufzeit

[mcinternet]

Hallo,

ich möchte es ähnlich machen. Dieses "FindeAlleKlassen" findet die Klassen allerdings erst, nachdem sie mit registerclass registriert sind. Vorher sind diese unsichtbar. Sie werden alle eincompiliert und ich hab ne Liste mit über 30 Klassen, welche ich ganz gern dynamisch registrieren möchte (dynamisch erzeugt werden sie ohnehin).
Beispiel:


unit registerforms

uses Classes,...bla bla, uDummy;

registerclass(TFrmDummy);


----------------

Unit HauptMenue

wenn User = Recht auf TFrmDummy then xForm := TFrmDummy.create(self);


------------------

Wenn ich das FindeAlleKlassen aufrufe, um z.B. TFrmDummy und alle anderen zu registrieren, dann findet es nur TFrmMain.
Rufe ich es NACH (an der Stelle mal "RegisterClasses([TPersistentClass(typ.AsInstance.MetaclassType)]);" auskommentiert)
meinem "registerclass(TFrmDummy);" auf - dann wird TFrmDummy gefunden.

Also beißt sich die Katze da in den Schwanz

Also - gibt es eine bessere Idee?

Beste Grüße

mcinternet

[Ralf Kaiser]

Zitat von mcinternet:

Also beißt sich die Katze da in den Schwanz

Also - gibt es eine bessere Idee?

Registriere die Klassen in ihren eigenen Units im initialzation Abschnitt.

[BerndS]

So was ähnliches wurde hier schon mal besprochen. Schau mal hier.
Ich verwende das etwas abgewandelt immer vor einem Release um zu prüfen, ob sich alle Formulare und Reports laden lassen.