Автоматическое позиционирование форм в центре родительских форм без использования обобщенной формы в Delphi

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

Вопрос, поднятый в контексте, заключается в поиске способа автоматического позиционирования форм в центре их родительских форм в приложении на Delphi, без использования обобщенной формы, от которой ранее все формы наследовались. Это необходимо для обеспечения единообразного поведения форм в приложении, но без неудобств, связанных с использованием обобщенной формы и VFI (Virtual Form Inheritance) в Delphi.

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

Проблема

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

Решение

Для решения этой задачи можно использовать несколько подходов. Один из них — использование события OnShow формы, которое позволяет настроить позиционирование формы перед её отображением. Также можно воспользоваться событием OnModalBegin приложения, чтобы определить родительскую форму при открытии модального окна.

Пример кода, который позиционирует форму в центре родительской формы:

procedure TForm.FormShow(Sender: TObject);
var
  OwnerForm: TForm;
begin
  OwnerForm := Owner;
  if OwnerForm <> nil then
  begin
    with Self do
    begin
      Left := OwnerForm.Left + (OwnerForm.Width - Width) div 2;
      Top := OwnerForm.Top + (OwnerForm.Height - Height) div 2;
    end;
  end;
end;

Или, используя OnModalBegin:

procedure TApplication.ModalBegin(Sender: TObject);
var
  ModalForm: TForm;
begin
  ModalForm := Sender as TForm;
  if ModalForm.Owner <> nil then
  begin
    with ModalForm do
    begin
      Left := Owner.Left + (Owner.Width - Width) div 2;
      Top := Owner.Top + (Owner.Height - Height) div 2;
    end;
  end;
end;

В FormCreate вашей основной формы (например, TMainForm) настройте обработчик события OnModalBegin:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnModalBegin := ModalBegin;
end;

Альтернативные подходы

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

Подтвержденный ответ

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

Заключение

Автоматическое позиционирование форм — это важная часть пользовательского интерфейса, которая улучшает восприятие приложения. Использование предложенных решений позволит вам достичь нужного поведения без необходимости в обобщенной форме.

Создано по материалам из источника по ссылке.

Необходимо разработать способ автоматического позиционирования форм в центре их родительских форм в приложении на Delphi без использования обобщенной формы и VFI.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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