Интеграция WinForms-компонентов в приложения VCL на Delphi: автоматическое изменение размера

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

Интеграция WinForms-компонентов в приложения VCL на Delphi: автоматическое изменение размера

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

Оригинальный код на C#:

using System;
using System.Runtime.InteropServices;
using System.Windows.Forms;

namespace Parenttest
{
    public partial class Form1 : Form
    {
        [DllImport("user32.dll")]
        public static extern IntPtr SetParent(IntPtr hWndChild, IntPtr hWndNewParent);

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            SetParent(panel1.Handle, (IntPtr)919640);  // Установка родительского окна для панели
        }
    }
}

Оригинальный код на Delphi:

unit FrmParent;

interface

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

type
  TForm5 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);
begin
  Caption := IntToStr(Handle);
end;

Решение проблемы:

Пользователь нашел решение, которое заключается в передаче управления C#-компонентом приложению на Delphi и последующем "усыновлении" его в Delphi. Это позволяет эмулировать поведение Delphi-компонента, установленного в свойство alClient. В коде на Delphi добавлен обработчик события OnResize для панели, который изменяет размеры C#-панели в соответствии с размерами родительской формы.

procedure TForm5.Panel1Resize(Sender: TObject);
begin
  Winapi.Windows.MoveWindow(CHILD, 0, 0, Panel1.Width, Panel1.Height, true);
end;

Также в коде предусмотрено возвращение контроля над C#-компонентом его предыдущему владельцу при закрытии Delphi-приложения, чтобы избежать потери контроля.

Заключение:

Интеграция WinForms-компонентов в VCL-приложения на Delphi требует внимательного подхода и понимания механизмов работы окон в Windows. Автоматическое изменение размера можно достичь, передав управление компонентом Delphi и эмулируя поведение стандартных VCL-компонентов. Однако стоит помнить о возможных проблемах с цепочками событий между приложениями и о необходимости корректного управления жизненным циклом встраиваемых компонентов.

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

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

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

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

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