Косвенный вызов формы

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

Передаем имя класса формы переменной с именем FormClassName:

MyForm := TFormClass(FindClass(FormClassName)).Create(Application);

В случае, когда имя класса не найдено, возникает исключительная ситуация. Возможно, перед данным вызовом необходимо вызвать RegisterClasses, делающий класс формы членом набора параметров.

{/codecitation}

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