Устранение проблемы отображения подсказок в динамически подключаемых библиотеках Delphi с использованием TAdvOfficeHint

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

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

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

Пользователь столкнулся с проблемой, когда при вызове формы из DLL с помощью компонента TAdvOfficeHint подсказки не отображаются. В DLL экспортируется функция ShowForm, которая принимает параметром экземпляр TApplication и должна отображать форму так, как будто она вызывается из основного приложения.

Пример кода

Вот пример кода функции ShowForm, которая используется для отображения формы:

procedure ShowForm(const App: TApplication);
begin
  OldApp := Application;
  try
    Application := App;
    MyForm := TMyForm.Create(nil);
    try
      MyForm.ShowModal;
    finally
      FreeAndNil(MyForm);
    end;
  finally
    Application := OldApp;
  end;
end;

Анализ проблемы

Пользователь использует компонент TAdvOfficeHint, который, вероятно, перехватывает событие Application.OnShowHint для отображения подсказок. Однако, поскольку форма находится в DLL, а не в основном приложении, возникают проблемы с глобальными переменными, такими как Application и Screen.

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

Проблема заключается в том, что при использовании компонентов из DLL каждый экземпляр приложения имеет свои собственные копии глобальных классов, что приводит к несоответствиям. Для решения проблемы рекомендуется использовать runtime-пакеты, чтобы обеспечить единый набор глобальных переменных и объектов.

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

Если использование runtime-пакетов невозможно, можно попробовать следующие альтернативные подходы:

1. Изменить настройку Application в функции ShowForm на изменение свойства Handle, чтобы указать на экземпляр TApplication, с которым должен взаимодействовать компонент TAdvOfficeHint.

procedure ShowForm(const AppHandle: THandle);
begin
  OldAppHandle := Application.Handle;
  try
    Application.Handle := AppHandle;
    ... // код отображения формы
  finally
    Application.Handle := OldAppHandle;
  end;
end;

1. Переписать код компонента TAdvOfficeHint для проверки класса Source по имени класса и последующего приведения типа, но этот метод считается небезопасным и не рекомендуется.

2. Использовать метод System.ShareMemoryManager в коде EXE, чтобы его менеджер памяти был общим с другими модулями, загруженными в пространство памяти процесса.

Заключение

Для устранения проблемы с отображением подсказок в динамически подключаемых библиотеках Delphi с использованием TAdvOfficeHint рекомендуется использовать runtime-пакеты. Если это невозможно, можно попробовать альтернативные подходы, такие как изменение свойства Handle объекта Application или использование метода ShareMemoryManager. Однако следует помнить, что альтернативные решения могут быть небезопасными и требуют тщательного тестирования.

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

Проблема заключается в некорректном отображении подсказок при использовании компонента `TAdvOfficeHint` из динамически подключаемой библиотеки (DLL) в среде разработки Delphi, связанная с различиями в глобальных переменных между основным приложением и DL

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

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

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