[ 005_フォームを実装した実行時パッケージの作成 ]

unit SubFormUnit;

interface

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

type
  TSubForm = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  SubForm: TSubForm;

implementation

{$R *.dfm}

procedure TSubForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

initialization
  RegisterClass(TSubForm);

finalization
  UnRegisterClass(TSubForm);

end.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    HandleModule : HModule;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//-----------------------------------------------------------------------------
//  Form1のOnCreateイベント処理
//  パッケージをロードする
//-----------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
  HandleModule := LoadPackage('Package\Test_Package.bpl');
end;

//-----------------------------------------------------------------------------
//  Form1のOnDestroyイベント処理
//  パッケージをアンロードする
//-----------------------------------------------------------------------------
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HandleModule <> 0 then UnloadPackage(HandleModule);
end;

//-----------------------------------------------------------------------------
//  パッケージ内のフォームをモーダル表示する
//
//  [注意]
//  パッケージ内のユニットをusesして使用しないこと
//  静的ロードとなってしまい，パッケージを更新してもEXE実行時に反映されない
//  通常のユニットの利用と同じになってしまう
//-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  AClass : TPersistentClass;
  pForm  : TForm;
  AForm  : TForm;
begin
  if HandleModule = 0 then exit;

  AClass := GetClass('TSubForm');
  if AClass <> nil then begin
    //パッケージ内のTSubFormのポインタとしてpFormを取得
    pForm := TForm(TPersistentClass(AClass).Create);

    //pFormクラスのフォームを生成
    //パッケージ内のSubFormのVisibleプロパティの値をFalseにしておく
    AForm := pForm.Create(Application);
    try
      AForm.Top  := Self.Top  + 70;
      AForm.Left := Self.Left + 50;
      AForm.Caption := 'テストフォーム';
      AForm.ShowModal;
    finally
      AForm.Free;
    end;
  end;
end;

end.