Delphi dll窗体封装

1.Create Form =>  FromTest.pas  {FromTest.dfm} 
 

var
  frmDLL: TfrmDLL;
  procedure SynAPP(App:THandle);stdcall;
  procedure ShowForm;stdcall;


implementation
uses Math,f2;
{$R  * .dfm}

 procedure SynAPP(App:THandle );stdcall;
begin
  Application.Handle : =  App;
end ;

procedure ShowForm;stdcall;
begin
  try
    frmDLL : =  TfrmDLL.Create (Application);
    finally
      FreeAndNil(frmDLL);
     end ;
end ;

2.Create Dll向导 => FormDll.dpr

library FormDLL;

uses
  SysUtils,
  Classes,
  Forms,
  FormTest  in  ' FormTest  .pas' {frmDll},

{$R  * .res}
exports
  SynAPP,ShowForm;

begin
end .

编译 FormDll.dpr 生成 FormDll.dll

3.在要调用的程序中

var
  Form1: TForm1;
  procedure SynAPP(App:THandle);stdcall;external  ' FormDLL.dll'; 
  procedure ShowForm;stdcall;external  ' FormDLL.dll';

implementation

{$R  * .dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SynAPP(Application.Handle);
  ShowForm ;
end ;