Как создать форму в DLL для Delphi, которая всегда остается поверх главного окна и сохраняет позиционирование

Delphi , Файловая система , DLL и PlugIns

При работе с компонентами Delphi в контексте создания модульных библиотек (DLL) могут возникать вопросы по позиционированию форм, а также по их взаимодействию с главным приложением. В частности, разработчик может столкнуться с задачей, когда форма из DLL должна отображаться поверх главного окна, сохраняя при этом своё позиционирование, например, в центре по отношению к главному окну. Давайте разберёмся, как это можно реализовать.

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

Разработчик создаёт форму внутри DLL и экспортирует процедуру для её вызова из главного приложения. Форма отображается корректно, но проблема заключается в том, что нужно сделать так, чтобы она отображалась всегда поверх главного окна и была центрирована относительно него.

Варианты решения

Использование form :=TfrmAbout.Create(Application.MainForm); не приводит к успеху, так как это не влияет на расположение формы в оконной иерархии.

Подходы, которые стоит рассмотреть

1. Передача указателя на Application: Однако, это может быть не лучшей идеей, так как не позволяет объектам из различных экземпляров VCL взаимодействовать друг с другом.
2. Назначение свойства ParentWindow: Это может позволить отобразить форму в качестве дочернего окна относительно главного, но может привести к зависанию.
3. Позиционирование формы вручную: Можно использовать функцию GetWindowRect() для определения положения главного окна и вычисления координат для централизованного отображения формы.

Пример кода для позиционирования формы

procedure PositionForm(Form: TForm; MainWindow: HWND);
var
  MainBounds: TRect;
  MainWidth, MainHeight: Integer;
begin
  if GetWindowRect(MainWindow, MainBounds) then
  begin
    MainWidth := MainBounds.Right - MainBounds.Left;
    MainHeight := MainBounds.Bottom - MainBounds.Top;
    Form.Left := MainBounds.Left + (MainWidth - Form.Width) div 2;
    Form.Top := MainBounds.Top + (MainHeight - Form.Height) div 2;
  end;
end;

Важные замечания

• Необходимо использовать HWND вместо THandle для корректной работы с оконной системой Windows.
• Важно понимать, что если не использовать пакеты (runtime packages), то EXE и DLL будут иметь отдельные экземпляры TApplication, что может привести к дополнительным проблемам.

Заключение

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

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

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

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

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

:: Главная :: DLL и PlugIns ::