procedure TForm1.Button1Click(Sender: TObject);
var
ChildForm: TForm2;
begin
ChildForm := TForm2.Create(nil);
ChildForm.ShowModal(
procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
// 要做的动作
end;
end);
end;

子窗体如何释放

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := TCloseAction.caFree;
end;

http://www.cnblogs.com/hnxxcxg/p/5518877.html

最新文章

1. 关于EM，REM，PX的几点注意
2. 16个常用IO流
3. java开发中的一些工具软件
4. php基础03：数据类型
5. BFC——一个我们容易忽视掉的布局神器
6. heartbeat安装
7. Javascript——Math对象
8. 如何禁止在DBGRID末位自动添加一行记录
9. sqlserver，sqlite，access数据库链接字符串
10. tomcat启动出错（转）
11. sql获取时间时分秒
12. Project Euler 26 Reciprocal cycles
13. android 控件自定义样式
14. PAT (Advanced Level) 1062. Talent and Virtue (25)
15. MySQL Flush Data
16. 腾讯云H5语音通信QoE优化
17. ios的位置和方向（来自苹果官方文档，仅供简单参考）
18. June 28th. 2018, Week 26th. Thursday
19. SQL Server表名为添加中括号[]执行出错
20. JavaSE | Lambda| Optional| Stream API

热门文章

1. php 注释
2. Android 自定义shape圆形按钮
3. Javascript 拖拽雏形中的一些问题——逐行分析代码，让你轻松了解拖拽的原理
4. MySQL操作类的封装（PHP）
5. 图像 - 创建 头像V1.0
6. 转载：10 Easy Steps to a Complete Understanding of SQL
7. secedit
8. Codeforces 325E
9. linux 学习之九、Linux 磁盘与文件系统管理（3）
10. iOS开发中视图相关的小笔记:push、modal、popover、replace、custom