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 xe 制作的萤光时钟，可改作屏保

Delphi 之 定时器 (ttimer组件)

为Delphi的控制台程式添加图标

Delphi 网络时间校对

Delphi 控制iis，检测、增加、删除虚拟目录

Delphi 取得某一天所在的星期一及星期天

Delphi winsock 域名获取远程服务器ip

Delphi代码实现窗口最小化，最大化，关闭消息发送

Delphi利用微软sapi实现语音控制(Delphi，tts,sr，灰色代码)_

Delphi cb_addstring 与lb_addstring的区别？

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

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