RSS订阅 | 匿名投稿
您的位置:网站首页 > Android > 正文

Delphi XE 移动平台 ShowModal 范例

作者:admin 来源: 日期:2015/4/26 21:47:47 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料