Delphi XE 移动平台 ShowModal 范例

2022-10-14 16:24:02 作者：admin

本文整理自网络，侵删。

 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;

返回首页上一篇：Delphi 通用程序自动更新升级下一篇：Delphi XE7 iOS 取得系统字型名称