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

Delphi , Программа и Интерфейс , Формы

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

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

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

Here's the translation of the text into Russian:

Тема Delphi!

Приведенный код - пример создания формы косвенным образом в Delphi. Он создает экземпляр формы, найдя класс формы с помощью функции FindClass и затем создав экземпляр этого класса.

Вот разбивка того, что код делает:

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

1. FindClass(FormClassName): Функция поиска класса с указанным именем (FormClassName) в реестре и возвращает ссылку на этот класс.
2. TFormClass(...): Это типкаст, преобразующий результат FindClass в TFormClass (общий класс reference).
3. (...)Create(Application): Полученный TFormClass экземпляр создается с помощью конструктора Create, передавая Application как аргумент.

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

Вот пример:

RegisterClasses([TMyForm]);

Зарегистрировав класс формы, вы обеспечиваете, что Delphi может найти и создать правильную форму, когда это нужно. В качестве альтернативных решений один подход - использовать более надежный метод поиска класса формы, например, с помощью фреймворка dependency injection или custom registry механизма. Другой подход - использовать редактор свойств на дизайн-уровне для указания класса формы вручную, что eliminatesneed для регистрации на время выполнения. Однако эти подходы могут требовать дополнительного кода и инфраструктуры.

В целом, ваш оригинальный код - это общий и эффективный способ создавать формы косвенным образом в Delphi. Просто убедитесь, что зарегистрируете все классы форм перед использованием!

Косвенный вызов формы - это способ создания экземпляра класса формы, когда имя класса известно только в виде строки, а не как типизированного имени класса.

Комментарии и вопросы

:: Главная :: Формы ::