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;



分享给朋友:
您可能感兴趣的文章:
随机阅读: