FMX - 안드로이드에서 Form ShowModal 사용하기

원본링크 = http://blog.hjf.pe.kr/200

 

Android 와 iOS에서 모두 작동 함

 

주요한 핵심은

1. ShowModal과 익명 메소드(Anonymous Mehtod)를 이용할 것

procedure TfrmParent.Button1Click(Sender: TObject);
var
  dlg : TForm1;
begin
  dlg := TForm1.Create(nil);
  dlg.ShowModal(procedure(ModalResult : TModalResult)
     begin
        if ModalResult = mrOK then
           // do something here
      end);
end;

 

2. 모달폼의 해제(Free)는 반드시 폼의 FormClose 이벤트에서 CloseAction을 사용해서 해제할 것

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