当前位置:首页 > 网站技术文档 > 正文内容

DELPHI XE 跨平台 Form ShowModal 官方示例

qzcc2个月前 (07-24)网站技术文档109

Calling ShowModal as an Anonymous Method on All Platforms

procedure THeaderFooterForm.btnPickClick(Sender: TObject);
var  dlg: TForm1;
 begin   dlg := TForm1.Create(nil);  
   // select current value, if available in the list   dlg.ListBox1.ItemIndex := dlg.ListBox1.Items.IndexOf(edit1.Text);   dlg.ShowModal(procedure(ModalResult: TModalResult)
    begin      
      if ModalResult = mrOK then      
       // if OK was pressed and an item is selected, pick it      
      if dlg.ListBox1.ItemIndex >= 0 then         edit1.Text := dlg.ListBox1.Items [dlg.ListBox1.ItemIndex];       dlg.DisposeOf;
    end);  end;

扫描二维码推送至手机访问。

版权声明:本文由Qzcc.Com发布,如需转载请注明出处。

本文链接:http://qzcc.com/post/delphiShowModal.html

分享给朋友:

相关文章

delphi XE10手机框架源码

delphi XE10手机框架源码

源码下载:http://pan.baidu.com/s/1FSjP81、主菜单与主界面的切换2、StyleBook的设计3、界面布局4、显示数据界面框架5、编辑界面框架,包括输入框输入的时候键盘问题6、WSDL三层结构服务器访问接口,实现数...

mysql的免安装配置

mysql的免安装配置

1、下载(1)下载地址:https://dev.mysql.com/downloads/mysql/(2)选择下载2、配置环境变量(1)解压目录:D:\mysql-8.0.16-winx64(2)配置环境变量3、添加配置文件(1)配置文件目...

手机号码归属地查询API接口

1、360网站:https://cx.shouji.360.cn/phonearea.php?number=1896034返回信息,直接点击上面的链接查看:{"code":0,"data":{&quo...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。