Создание универсальной процедуры для MDI-окон в Delphi с использованием обобщений

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

Вопрос, поднятый в вашем запросе, заключается в необходимости централизованного создания дочерних окон MDI в Delphi (VCL) с использованием обобщений (generics). Цель состоит в том, чтобы выполнять определённые действия при создании любого типа MDI-окна, например, добавление названия окна в список для удобного доступа к нему.

Проблема

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

Решение

Для решения этой задачи можно определить класс с использованием обобщений и классами ограничений. Ниже представлен пример такого класса:

TGenericMDIForm<T: TForm> = class
  class procedure CreateMDIChild(const Name: string);
end;

И его реализация:

class procedure TGenericMDIForm<T>.CreateMDIChild(const Name: string);
var
  Child: TCustomForm;
begin
  Child := T.Create(Application);
  Child.Caption := Name + ' of ' + T.ClassName + ' class';
  // Дополнительные действия, например, добавление в список активных MDI окон
  // ...
end;

Теперь вы можете использовать этот класс для создания MDI-окон различных типов:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  TGenericMDIForm<TMdiChild>.CreateMDIChild('Child type 1');
  TGenericMDIForm<TMdiChild2>.CreateMDIChild('Child type 2');
  // ...
end;

Используя класс ограничений с обобщением TGenericMDIForm<T: TForm>, вы можете избежать ошибок, если попытаться создать MDI-окно не отнаследованного от TForm класса.

Альтернативное решение

Также можно использовать классы из модуля System.Generics.Collections, например, TObjectList<TfmMDIChild>, где TfmMDIChild - это ваш собственный класс. Ещё один полезный совет - создать свой собственный класс для управления коллекцией на основе TObjectList.

TWindowList = class(TObjectList<TfmMDIChild>)
  public
    procedure RefreshGrids;
    function FindWindow(const AClassName: string; AObjCode: Integer = 0): TfmMDIChild;
    procedure RefreshWindow(const AClassName: string; AObjForRefresh: integer = 0; AObjCode: Integer = 0);
    procedure RefreshToolBars;
end;

Заключение

Создание универсальной процедуры для MDI-окон с использованием обобщений в Delphi позволяет повысить организованность и повторное использование кода, а также упрощает выполнение общих действий при создании новых окон. Приведённые примеры демонстрируют, как можно использовать обобщения для создания гибкой и мощной системы управления MDI-окнами.

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

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

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

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

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