Автоматическое управление размерами плагинов в TPageControl с использованием VCL Ответ на вопрос пользователя: Автоматическое масштабирование плагинов на TPageControl: решение проблемы с оконными дескрипторами

Delphi , Синтаксис , Справочник по API-функциям

Автоматическое управление размерами плагинов в TPageControl с использованием VCL

При разработке приложений на Delphi часто возникают ситуации, когда необходимо интегрировать в интерфейс элементы, созданные вне VCL, например, плагины. Один из таких случаев - это добавление окон, созданных в DLL, в качестве вкладок на TPageControl. В этом материале мы рассмотрим, как можно автоматизировать процесс управления размерами и позиционированием таких окон.

Проблема

Разработчик столкнулся с проблемой автоматического управления размерами и позиционированием окон, созданных в DLL, которые должны быть добавлены в TPageControl без использования динамического RTL и без привязки к другим языкам программирования. Оконные формы, созданные для плагинов, должны быть интегрированы таким образом, чтобы VCL-процедуры автоматического выравнивания (например, alClient, alTop и т.д.) могли управлять их позиционированием и размером.

Решение

Для решения этой задачи необходимо создать новый класс, производный от TWinControl, и переопределить метод DestroyWindowHandle, чтобы он не пытался освободить предоставленный оконный дескриптор. Это позволяет использовать стандартные механизмы VCL для управления размерами и позиционированием окон, созданных вне VCL.

Пример кода

unit CustomWinControl;

interface

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

type
  TCustomWinControl = class(TWinControl)
  protected
    procedure DestroyWindowHandle; override;
  end;

implementation

uses
  System.SysUtils;

procedure TCustomWinControl.DestroyWindowHandle;
begin
  // Не делаем ничего, чтобы не освобождать оконный дескриптор
end;

end.

Интеграция в приложение

После создания класса TCustomWinControl, его можно использовать для добавления оконных форм плагинов в TPageControl. Пример процедуры для добавления такого окна:

procedure AddPluginWindowToForm(AHandle: DWORD; AAlign: TAlign);
var
  NewWinControl: TCustomWinControl;
begin
  NewWinControl := TCustomWinControl.Create(frmMain);
  NewWinControl.WindowHandle := AHandle;
  NewWinControl.Align := AAlign;
  NewWinControl.Parent := frmMain;
  TWinControl(frmMain).Insert(NewWinControl);
end;

Примечания

• При использовании этого подхода важно убедиться, что оконный дескриптор, предоставленный плагином, остаётся валидным до тех пор, пока он используется в приложении.
• Переопределение метода DestroyWindowHandle позволяет избежать ошибок при закрытии приложения, связанных с освобождением несуществующих дескрипторов окон.

Заключение

Использование производного класса TWinControl для управления размерами и позиционированием окон, созданных вне VCL, является эффективным решением для интеграции плагинов в TPageControl. Это позволяет разработчикам использовать стандартные VCL-процедуры для автоматического выравнивания и масштабирования, что упрощает процесс разработки и повышает качество пользовательского интерфейса.

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

Пример реализации автоматического управления размерами плагинов в TPageControl с использованием VCL для интеграции окон, созданных в DLL, с автоматическим позиционированием и размером.

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

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

:: Главная :: Справочник по API-функциям ::