DELPHI XE5 跨平台 Form ShowModal 官方示例
2024-10-22 19:42:00
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;
最新文章
- Unity、c#中的拓展方法讲解
- angular学习笔记(二十八-附1)-$resource中的资源的方法
- [saiku] 源码整合[普通WEB项目]
- Bayer RGB和RGB Raw
- Facebook公开其Hadoop与Avatarnode代码——有效解决Namenode顽疾
- 【ASP.NET Web API教程】2.3.6 创建产品和订单控制器
- Android应用-包装脚本批量方法
- radio里面value值与其他字符进行比较
- ajax初探--实现简单实时验证
- u3d材质Tiling和Offset意义以及TRANSFORM_TEX
- 对于 Netty ByteBuf 的零拷贝(Zero Copy) 的理解
- linux下钉钉,微信
- python -- 约束、异常处理、MD5
- 调用get_str_time(时间), 就能把毫秒的时间转换成格式化的 ,转化时间戳的方法
- java 泛型E T ?的区别
- UE4新手编程之创建空白关卡和添加碰撞体
- Breaseman算法绘制直线算法公式推导|步骤|程序
- Docker 监控之 SaaS 解决方案
- 多线程之ThreadLocal
- aws代理
热门文章
- UDP协议相关解释
- Quartz.net 2.x 学习笔记03-使用反射加载定时任务
- 权益保护-知识产权:知识产权(IP)百科
- Linux学习笔记 -- 文本编辑器之 vi与vim
- [置顶]
 TIM_GetCounter与TIM_GetCapture1的区别
- Java 查询数据后进行递归操作
- Java面向对象-构造方法,this关键字
- IOS证书申请 PPF provisioning profile Developer Certificate
- redis-win7
- sql 在存储过程中使用事务(转)