firemonkey打开子窗体(匿名回调函数)
2016-06-29 17:08
337 查看
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
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
相关文章推荐
- mac端抓包工具——Charles使用
- 各种解压缩 linux .tar .gz .bz2 .bz .zip
- Java语言中this关键字的用法详解
- 基于Spark平台的电影推荐系统实现
- 19.Shell文件包含
- 利用霍夫梯度法进行圆检测的原理概要及OpenCV代码实现
- C++中的using
- java中相对路径,绝对路径问题总结(转)
- 利用viewPager实现导航界面
- CentOS安装MongoDB
- JavaSE 基础 第34节 继承关系
- 5分钟了解Mockito
- 将pdf转换成excel格式的方法
- 布隆过滤器(Bloom Filter)详解
- svn精细配置各个目录的权限
- 梯度与Roberts、Prewitt、Sobel、Lapacian算子
- 如何在HTML页面中,用JavaScript获取application的值?
- 最长上升子序列
- spring定时器时间配置规则
- 压缩OLEVARIANT数据