Firemonkey 移动平台 Form 显示使用 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;

 

posted @ 2014-09-24 12:09  龟山Aone  阅读(2122)  评论(0编辑  收藏  举报