Как загрузить форму из dll и разместить её внутри главной формы на компоненте Panel?

[tim21701]

Как загрузить форму из dll и разместить её внутри компонента TPanel главной формы?
Image 11.jpg
Листинг главной формы:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure ShowAbout(AOwner:TComponent); stdcall; external 'Project2.dll';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowAbout(Application);
end;
 
end.

Листинг dll:

library Project2;
 
uses
  SysUtils,
  Classes,
  Forms,
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.res}
 
procedure ShowAbout(AOwner:TComponent); stdcall;
var
  Form: TForm2;
begin
  Form:=TForm2.Create(AOwner);
  Form.ShowModal;
  Form.Free;
end;
 
exports ShowAbout;
 
begin
end.

Файлы проекта с готовой dll:
dll_Form.zip

[northener]

Дельфийская форма в dll это извращение! Со всеми вытекающими последствиями.
Мазохист или любитель геморроя?

[tim21701]

Сообщение от northener

Дельфийская форма в dll это извращение! Со всеми вытекающими последствиями.
Мазохист или любитель геморроя?

Просто надо это сделать и все. А уж о целесообразности того или иного решения - это отдельная ветка под названием "курилка". Если вы в силах помочь - поделитесь решением (помимо мнения), буду признателен))

[kropotkina-alice]

Form2:=TForm2.Create(AOwner);
Form2.Parent:=AOwner;
Form2.Top:=0;
Form2.Left:=0;
Form2.Show;//Modal;
//Form2.Free;

ShowModal не получится...

[evg_m]

Просто надо это сделать и все.

просто это сделать не получится.
http://programmersforum.ru/showthrea...hlight=dll+bpl
http://programmersforum.ru/showthrea...hlight=dll+bpl
http://programmersforum.ru/showthrea...hlight=dll+bpl
http://programmersforum.ru/showthrea...hlight=dll+bpl
http://programmersforum.ru/showthrea...hlight=dll+bpl
http://programmersforum.ru/showthrea...hlight=dll+bpl
http://programmersforum.ru/showthrea...hlight=dll+bpl
http://programmersforum.ru/showthrea...hlight=dll+bpl

есть еще один путь, но опять же не такой простой.
использовать инструменты Microsoft (ActivX OLE COM технологии).
сделать форму в DLL ActivX компонентом. и соответственно DLL будет ActivX (и OLE и COM) сервером.
а "родительская " форма будет выступать его клиентом.

[tim21701]

Сообщение от evg_m

просто это сделать не получится...

Просто надо взять и сделать.

Готовый пример (файлы проекта) вместе с откомпилированной dll и exe в архиве
Всем спасибо. Вопрос закрыт.

Project1