Универсальный создатель формы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Обратите внимание на методы FindClass/GetClass и RegisterClass. С помощью их вы можете эффективно перевести строку (имя класса формы) в тип класса этой формы, и затем выполнить такую команду:

MyForm := TForm(FindClass(SomeString)).Create(Self);

{/codecitation}

Добавить комментарий