Erstellen eines Steuerelements durch name
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.
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.
Erstellen eines Steuerelements durch name
By Wiezutun
Erstellen eines Steuerelements durch name : Mehreren tausend Tipps, um Ihr Leben einfacher machen.