Как скрыть процесс создания множества MDI форм в Delphi для оптимизации производительности

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

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

Проблема

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

Решение

Для решения этой проблемы можно использовать следующий подход:

1. Установить свойство Visible MDI дочерних форм в False. Это скрывает формы при их создании.
2. Отключить поведение VCL, которое пытается показать формы во время их создания, изменив свойство FormStyle дочерних форм.
3. Переопределить метод AfterConstruction в классе дочерней формы, чтобы предотвратить автоматическое отображение формы после её создания.

Пример кода для переопределения метода AfterConstruction:

procedure TMDIChild.AfterConstruction;
begin
  Exclude(FFormState, fsVisible);
  inherited;
end;

Этот код создаст дочернюю форму MDI, которая будет невидимой сразу после создания.

Тестирование

Для тестирования созданного решения можно создать новое приложение MDI в IDE, переопределить метод AfterConstruction в классе дочерней формы, как показано выше, и симулировать долгую инициализацию. Например, можно создать несколько MDI форм с задержкой между их созданием.

Пример кода для создания MDI форм с задержкой:

procedure TMainForm.FileNew1Execute(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 10 do begin
    CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
    Update;
    Sleep(500);
  end;
  for i := 0 to MDIChildCount - 1 do
    MDIChildren[i].Visible := True;
end;

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

Важное замечание

Использование функции LockWindowUpdate() для уменьшения мерцания или подавления любого вывода на экран является неверным. Вместо этого рекомендуется ознакомиться с серией статей Рэймонда Чена на эту тему, чтобы понять, почему такой подход нежелателен.

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

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

Пример использования WM_SETREDRAW:

SendMessage(Application.MainForm.ClientHandle, WM_SETREDRAW, False, 0);
try
  Child := TChildForm.Create(Self);
  Child.Left := ...;
  Child.Top := ...;
  Child.Show;
finally
  SendMessage(Application.MainForm.ClientHandle, WM_SETREDRAW, True, 0);
  InvalidateRect(Application.MainForm.ClientHandle, nil, True);
end;

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

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

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

Статья о том, как скрыть процесс создания множества MDI форм в Delphi для повышения производительности приложения.

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

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

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