Delphi 封装窗体封装DLL

 1、创建一个将要被调用的窗体

unit FormTest;

interface

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

type
  TfrmTest = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTest: TfrmTest;

implementation

{$R *.dfm}


end.

2.创建封装窗体的Dll文件

library FormDLL;

uses
  SysUtils,
  Classes,
  Forms,
  FormTest in 'FormTest.pas';

Function DllShowModal(H: THandle): integer; stdcall;
begin
  Application.Handle := H;
  wi