ShowModal在VCL和Firemonkey中的使用区别

通常在VCL中，要显示一个子窗口，使用下面的代码：

     procedure TForm1.Button1Click(Sender: TObject);

     var

         ChildForm: TChildForm;

     begin

         ChildForm := TChildForm.Create(nil);

         try

             if ChildForm.ShowModal = mrOK then

             begin

                     // 要做的动作

             end;

         finally

             ChildForm.Free;

         end;

     end;

但是到了Firemonkey中，这样的表达会有问题。

1.  Free并不会释放对象，它只是减少引用的次数。要强制释放对象，需要调用DisposeOf。

2. Firemonkey中没有模式窗口的概念，上面的代码并不能取得我们想要的效果。

那么在FireMokey中，应该如何做呢？

   procedure TForm1.Button1Click(Sender: TObject);
   var
     ChildForm: TChildForm;
   begin
     ChildForm := TChildForm.Create(nil);
     ChildForm.ShowModal(procedure(ModalResult: TModalResult)
                         begin
                           if ModalResult = mrOK then
                           begin
                              // 要做的动作
                           end;
                         end);
   end;

那么如何释放子窗口呢？

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