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