Delphi XE 移动平台 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;
 

相关阅读 >>

Delphi字符串隐藏一法

Delphi net.httpclient正则批量获取网页代码中的数值

Delphi 字符串中末位是双字节字符的处理（避免最后一位为乱码）

Delphi xe7 的 android bitmap转jpg图的参数问题

Delphi 取得和设置当前系统的短日期格式

Delphi Delphi tparallel cleanup needed用法

Delphi 导出excel报错：ole error 800a03ec

Delphi 2009 之 tstringbuilder 类[1]: create

Delphi文件捆绑器

Delphi system.sysutils.tmarshaller 与 system.tmarshal

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE 移动平台 ShowModal 范例