Delphi 调用dll中的窗体

1.定义窗体

unit UDllForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TDllForm = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DllForm: TDllForm;
  procedure ShowDllFormInPanel(Parent:THandle);stdcall;
  procedure ShowDllForm;stdcall;
implementation

procedure ShowDllFormInPanel(Parent:THandle);stdcall;
begin
  Application.handle:=parent;
  if DllForm = nil then
    DllForm:= TDllForm.Create(Application);
  DllForm.ParentWindow:=Parent;//将容器设置为父窗口
  DllForm.Show;
end;

procedure ShowDllForm;stdcall;
begin
  if DllForm = nil then
    DllForm:= TDllForm.Create(Application);
  DllForm.Show;
end;

{$R *.dfm}

procedure TDllForm.btn1Click(Sender: TObject);
begin
  ShowMessage('HELLO');
end;

end.

2.定义dll

library Formindll;

uses
  SysUtils,
  Classes, 
  UDllForm in 'UDllForm.pas' {DllForm};

{$R *.res}
exports
   ShowDllFormInPanel,
   ShowDllForm;
begin
end.

3.dll窗体调用 

     注意：dll窗体不能直接放在父窗体里面 ，这里可以使用panel作为父窗体 对应过程ShowDllFormInPanel

                 dll窗体不放在父窗体 则直接使用ShowDllForm 过程，想一个对话框的形式

unit Unit1;

interface

uses
  SysUtils,Classes,Forms,Windows,Messages, Controls, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    pnl1: TPanel;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure ShowDllFormInPanel(Parent:THandle);stdcall; external 'E:\test7\formindll.dll';
  procedure ShowDllForm;                       stdcall; external 'E:\test7\formindll.dll';
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
    ShowDllFormInPanel(pnl1.Handle);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
    ShowDllForm;
end;

end.