Firemonkey 多个 Form 创建与显示

Posted 2020-06-24

使用 ShowModal ： 

procedure TForm1.Button1Click(Sender: TObject);
begin
     Form2 := TForm2.Create(Self);
     Form2.ShowModal(procedure(ModalResult : TModalResult)
         begin
             if ModalResult = mrOK then

                // do something here

         end);
end;

 

ps. 在 XE8 之前的版本，对于使用多 Form 实在不敢领教，问题不外乎创建慢，耗记忆体等问题，但到了 XE8 后的版本，此方面改进了不少，可以放心的使用了。