, het creëren van een controle, het creëren van een controle, alleen de naam gecontroleerd. De eerste categorie, moeten worden geregistreerd, dit is het eerste gedeelte van de voltooiing van de in registerclasses (.,,, [Tedit]);,,,, en toen vonden we de voorwerpen (klasse te) controle, en het is in feite een verslag.,,, klasse: = findClass ('tedit "); en, gelden (klasse < > geen);,, gelden (klasse. Inheritsfrom (controle);,,,, eindelijk hebben we een soort van een tcontrolclass (met het oog op De aanpassing van de fabrikant met de juiste) en bel opgezet.,,, C = - verslag (tcontrolclass (klasse). Het creëren van (zelf);,,,,,,, van de code als volgt. De functie van createcontrolbyclassname (totaal:,, aclassname string; op aowner:tcomponent):,, var;,, klasse: TClass;,,,,, klasse: = findClass (aclassname);,, gelden (klasse < > geen);,, gelden (klasse. Inheritsfrom (controle);,, resultaten: = - verslag (tcontrolclass (klasse) te creëren (aowner)); en Ten slotte,;,,,, registerclasses gestart ([Tedit]);,,,,,, is voorbij.