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

DELPHI XE 跨平台 Form ShowModal 官方示例

qzcc4个月前 (07-24)网站技术文档210

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发布,如需转载请注明出处。

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

分享给朋友:

相关文章

Steema TeeChart Pro VCL FMX Source Code 2020.30 delphi10.4.2编译出错:E2066、E2052、E2280

Steema TeeChart Pro VCL FMX Source Code 2020.30 delphi10.4.2编译出错:E2066、E2052、E2280

VCLTee.TeeConst.pas(612) Error: E2066 Missing operator or semicolon VCLTee.TeeConst.pas(612) Error: E2066 Missing operat...

github.com、sourceforge.net上的一些delphi相关的开源项目

下面是一些利用Delphi受欢迎的开源项目的示例。    HeidiSQL:在Delphi中开发的一种非常流行的用于管理MariaDB,MySQL,SQL Server,PostgreSQL和SQLite的客户...

Instructions to use TeeChart with FMXLinux

Instructions to use TeeChart with FMXLinux

Once installed in RAD Studio, TeeChart VCL/FMX can target a variety of platforms, including Windows, macOS, Android, i...

发表评论

访客

看不清,换一张

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