Erstellen eines Steuerelements durch name

Erstellen eines Steuerelements durch name

Erstellen eines Steuerelements durch name : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Gewusst wie: Erstellen eines Steuerelements, wenn nur der Klassenname des Steuerelements angegeben.
Zuerst muss die Klasse registriert werden, dies geschieht im Initialisierungsabschnitt.
RegisterClasses([TEdit]);

Dann wir das Klassenobjekt finden (Klassen sind Objekte zu) zur Kontrolle, und überprüfen Sie, ob es in der Tat eine TControl ist.
CClass: = FindClass('TEdit');
Geltend zu machen (CClass <> nil);
Assert(CClass.inheritsFrom(TControl));

Schließlich werfen wir Klasse als ein TControlClass (um den richtigen Konstruktor aufrufen) und rufen Sie erstellen.
C: = TControl(TControlClass(CClass). Create(Self));

Der vollständige Code ist unten.
Funktion CreateControlByClassName (const AClassName: string;
AOwner: TComponent): TControl;
var
CClass: TClass;
beginnen

CClass: = FindClass(AClassName);
Geltend zu machen (CClass <> nil);
Assert(CClass.inheritsFrom(TControl));
Ergebnis: = TControl(TControlClass(CClass). Create(AOwner));
Ende;
Initialisierung
RegisterClasses([TEdit]);
Ende.