Delphi XE6入门教程 - 移动开发ShowModal的使用

曾经拥有

showmodal.rar (6.89 KB, 下载次数: 148)

2014-6-28 18:05 上传

点击文件名下载附件


介绍

本文章介绍了Delphi XE6移动开发ShowModal的使用，ShowModal这个方法在新窗体的打开使用上，经常会使用到，下面通过两个例子来讲下基本的ShowModal的使用，以及现在移动开发上ShowModal的使用。

1：首先介绍了经典的ShowModal方法的使用，下面是代码

1. procedure THeaderFooterForm.btnPickClick(Sender: TObject);
   
2. var
   
3.   dlg: TForm1;
   
4. begin
   
5.   dlg := TForm1.Create(nil);
   
6.   try
   
7.     // select current value, if avaialble in the list
   
8.     dlg.ListBox1.ItemIndex := dlg.ListBox1.Items.IndexOf(edit1.Text);
   
9. 
   
10.     if dlg.ShowModal = mrOK then
    
11.       // if OK was pressed and an item is selected, pick it
    
12.       if dlg.ListBox1.ItemIndex >= 0 then
    
13.         edit1.Text := dlg.ListBox1.Items [dlg.ListBox1.ItemIndex];
    
14.   finally
    
15.     dlg.Free;
    
16.   end;
    
17. 
    
18. end;

复制代码

上面的代码，首先创建一个新的窗体，然后调用ShowModal来显示新窗体，当窗体关闭的时候，检测返回的结果是否是mrOK ，如果是mrOK 那么就读取新窗体上ListBox选择项。

2：然后介绍了移动开发方面，ShowModal方法如何来使用

1. procedure THeaderFooterForm.btnPickClick(Sender: TObject);
   
2. var
   
3.   dlg: TForm1;
   
4. begin
   
5.   dlg := TForm1.Create(nil);
   
6.   // select current value, if available in the list
   
7.   dlg.ListBox1.ItemIndex := dlg.ListBox1.Items.IndexOf(edit1.Text);
   
8. 
   
9.   dlg.ShowModal(procedure(ModalResult: TModalResult)
   
10.     begin
    
11.       if ModalResult = mrOK then
    
12.       // if OK was pressed and an item is selected, pick it
    
13.       if dlg.ListBox1.ItemIndex >= 0 then
    
14.         edit1.Text := dlg.ListBox1.Items [dlg.ListBox1.ItemIndex];
    
15.       dlg.DisposeOf;
    
16.     end);
    
17. 
    
18. end;

复制代码

上面的代码将返回结果存放到了一个匿名的函数中，当dlg.ModalResult被执行后，会被调用，当匿名函数被调用后，可以检测返回结果，然后根据返回结果进行处理。

移动开发使用第二种方法。

nshzxh

这挺好的文章啊。没人回复滴？

laoshanyang

是挺好的, 可以作为对话框使用不?

sb94455

确实不错哦

fstar22

和对话框还有些区别的，功能更丰富一些

kwmxw

好贴！