Delphi应用程序架构中有一种模式，采用DLL或Package存储业务窗体，当需要时从其中载入到主程序中，这时候需要对DLL或Package中窗体进行处理，步骤如下：

1、定义窗体基类

typeTfrmBase = class(TForm)Panel1: TPanel;private{ Private declarations }protectedprocedure Loaded;override;public{ Public declarations }procedure UpdateActions; override;end;TfrmBaseClass = class of TfrmBase;implementation{$R *.dfm}{ TfrmBase }procedure TfrmBase.Loaded;
begininherited;

  //将窗体改变为嵌入化 align   :=   alClient;BorderStyle   :=   bsNone;BorderIcons   :=   [];
end;procedure TfrmBase.UpdateActions;
begininherited;//将方法Public化
end;

2、创建具体的实例窗体

TfrmDll = class(TfrmBase)

3、通过窗体数据窗体类

function GetDllFormClass : TfrmBaseClass;
beginResult := TfrmDll;
end;exportsGetDllFormClass;

4、主窗体中动态载入DLL和创建DLL中的窗体对象

procedure TfrmMain.Button1Click(Sender: TObject);
beginif DllHandle > 0 thenExit;DllHandle := LoadLibrary('FormDll.dll');if DllHandle > 0 thenbeginGetDllFormClass := GetProcAddress(DllHandle, 'GetDllFormClass');ifAssigned(GetDllFormClass) thenbegin

      cfrm := GetDllformClass;vfrm := cfrm.Create(Application);      

      //设置窗体的Parent，通过ParentWindow方法实现，这点很重要vfrm.ParentWindow := TabSheet1.Handle;

    end;end;
end;

5、在主窗体上放置一个TApplicationEvents控件，在OnIdle事件中填写以下代码：

procedure TfrmMain.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin//当系统空闲时，处理子窗体的ActionUpdate事件if Assigned(vfrm) thenvfrm.UpdateActions;
end;

6、在OnMessage事件中填写以下代码：

procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);
begin//如果窗体变量存在，则需要对消息进行判断和处理，如果是窗体变量的消息，则不进一步处理if Assigned(vfrm) thenbeginif IsDialogMessage(vfrm.Handle, Msg) thenHandled := true;end;
end;

至此完成。