Решение проблемы размещения дочерних окон MDI в неглавной форме в Delphi

Delphi , Программа и Интерфейс , MDI приложения

При разработке приложений на языке Object Pascal с использованием среды Delphi часто возникает потребность в создании многооконных интерфейсов, где одно окно является родительским (MDI - Multiple Document Interface), а другие - дочерними. Стандартная настройка VCL предполагает, что только главная форма (MainForm) может быть родительской для MDI-окон. Однако, в некоторых случаях, например, при работе с различными клиентами, требуется, чтобы каждое взаимодействие с клиентом открывалось в отдельном MDI-предке. В данной статье мы рассмотрим, как решить эту проблему.

Описание проблемы

Разработчик столкнулся с необходимостью создания приложения, в котором список клиентов отображается в главной форме. При выборе клиента из списка необходимо открыть новое окно, которое будет выступать в роли родителя для различных дочерних MDI-окон. По умолчанию, VCL не позволяет использовать в качестве родительского окна для MDI-дочерних форм другие формы, кроме главной (MainForm).

Поиск решения

В качестве решения этой проблемы разработчик обратился к сообществу за помощью, где были предложены различные варианты обхода ограничений VCL. В частности, были найдены рабочие решения на сайте QualityCentral и CodeCentral, где описывается возможность размещения MDI-дочерних форм в неглавных формах.

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

На сайте QualityCentral существует рабочее решение, которое позволяет использовать неглавные формы как родительские для MDI-дочерних окон. К сожалению, полный текст решения не может быть представлен здесь, однако разработчики могут найти его, зарегистрировавшись на сайте и перейдя по ссылке Hosting MDI child forms in non-MainForm forms.

Также на CodeCentral есть пример кода, который демонстрирует, как создать несколько родительских форм MDI в одном приложении, но он написан на C++. Ссылка на этот пример: Multiple MDI Parent Forms in a single Application.

Альтернативный путь решения

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

Пример кода

Давайте рассмотрим пример кода, который демонстрирует, как можно модифицировать поведение формы для поддержки MDI в неглавной форме. Для этого потребуется изменить свойства формы, чтобы она могла управлять другими дочерними формами как MDI-предок.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, System.Types;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Устанавливаем текущую форму как MDI-предок
  Application.CreateForm(TForm2, Form2);
  Form2.Caption := 'Клиент: Иван Иванов';
  Form2.Parent := Self;
  Form2.BorderStyle := bsNone;
  Form2.WindowState := wsMaximized;
  // Устанавливаем свойства для поддержки MDI
  Self.ControlStyle := ControlStyle + csOpaque;
  Self.WindowState := wsMaximized;
  Self.Align := alClient;
  Self.Ctl3D := False;
  Self.Picture = nil;
  Self.PopupMenu := nil;
  Self.Released := nil;
  Self.MDIList := True;
  Self.MDILicense := True;
  Self.MDIChild := False;
  Self.MDIForm := True;
end;

end.

В данном примере создается форма Form1, которая настраивается для работы в режиме MDI-предка. Для демонстрации создается дочерняя форма Form2, которая настраивается как MDI-ребенок с заданным именем клиента.

Заключение

В данной статье мы рассмотрели проблему, связанную с размещением дочерних окон MDI в неглавной форме в приложениях на Delphi. Мы узнали, что существуют рабочие решения, которые позволяют обойти ограничения VCL и использовать любую форму в качестве MDI-предка. Представили пример кода, который демонстрирует, как настроить форму для работы в режиме MDI-предка. Разработчикам рекомендуется обратиться к ресурсам QualityCentral и CodeCentral для получения полного кода решения.

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

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

Разработчик сталкивается с задачей размещения дочерних MDI-окон в формах, отличных от главной формы в приложениях на Delphi.

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

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

:: Главная :: MDI приложения ::