program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  fmxUnit1 in '..\fmxForms\fmxUnit1.pas' {fmxForm1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

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

var
  Form1: TForm1;

implementation

uses
  Unit2;

{$R *.dfm}

//=============================================================================
//  FireMonkey のフォームを表示するフォームをモーダル表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Left := Self.Left + 50;
  Form2.Top  := Self.Top + 70;

  Form2.ShowModal;
end;

end.

unit Unit2;

interface

uses
  FMX.Forms, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Parnassus.FMXContainer;

type
  TForm2 = class(TForm)
    FireMonkeyContainer1: TFireMonkeyContainer;
    procedure FireMonkeyContainer1CreateFMXForm(var Form: TCommonCustomForm);
    procedure FireMonkeyContainer1DestroyFMXForm(var Form: TCommonCustomForm;
      var Action: TCloseHostedFMXFormAction);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form2: TForm2;

implementation

uses
  fmxUnit1;

{$R *.dfm}

//=============================================================================
//  FireMonkeyContainer1 の OnCreateFMXForm イベント
//  FireMonkeyForm プロパティ設定時に発生
//  FireMonkeyForm フォームが設定されていなければ生成して設定
//
//  uses に FMX.Forms と fmxUnit1 (表示するフォームのユニット名) が必要
//=============================================================================
procedure TForm2.FireMonkeyContainer1CreateFMXForm(var Form: TCommonCustomForm);
begin
  if not Assigned(Form) then begin
    fmxForm1 := TfmxForm1.Create(nil);
    Form := fmxForm1;
  end;
end;

//=============================================================================
//  FireMonkeyContainer1 の OnDestroyFMXForm イベント
//  FireMonkeyContainer1 が破棄される時に発生
//
//  uses に FMX.Forms と fmxUnit1 (表示しているフォームのユニット名) が必要
//=============================================================================
procedure TForm2.FireMonkeyContainer1DestroyFMXForm(var Form: TCommonCustomForm;
  var Action: TCloseHostedFMXFormAction);
begin
  Action := fcaFree;
  fmxForm1 := nil
end;

end.

unit Unit1;

interface

uses
  FMX.Forms, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
  Vcl.StdCtrls;

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

var
  Form1: TForm1;

implementation

uses
  Unit2,
  fmxUnit1;

{$R *.dfm}

//=============================================================================
//  FireMonkey のフォームを表示するフォームをモーダル表示
//
//  fmxForm1 は [自動生成] から除外しておく
//  TFireMonkeyContainer.の FireMonkeyForm に FireMonkey のフォームを指定
//  オブジェクト・インスペクタで設定すると 2 回目以降表示しなくなる
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  fmxForm1 := TfmxForm1.Create(self);
  try
    Form2.FireMonkeyContainer1.FireMonkeyForm := fmxForm1;

    Form2.Left := Self.Left + 50;
    Form2.Top  := Self.Top + 70;
    Form2.ShowModal;
  finally
    FreeAndNil(fmxForm1);
  end;
  SetActiveWindow(Handle);
end;

end.

unit fmxUnit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects;

type
  TfmxForm1 = class(TForm)
    Button1: TButton;
    ImageControl1: TImageControl;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private 宣言 }
  public
    { public 宣言 }
  end;

var
  fmxForm1: TfmxForm1;

implementation

{$R *.fmx}

//=============================================================================
///  フォーム生成時の処理
//=============================================================================
procedure TfmxForm1.FormCreate(Sender: TObject);
var
  LFilePath : string;
begin
  LFilePath := ExpandFileName('../smail_27.bmp');
  ImageControl1.Bitmap.LoadFromFile(LFilePath);
end;

//=============================================================================
//  Application.ProcessMessages のテスト
//  2015/07/10 時点の FireMonkey Container ではエラーが発生
//  今回のテストではエラーは発生しない
//=============================================================================
procedure TfmxForm1.Button1Click(Sender: TObject);
var
  LIndex : Integer;
begin
  for LIndex := 0 to 100 do begin
    Application.ProcessMessages;
    Sleep(10);
  end;
end;

end.