Demo学习: Dialogs Anonymous Callback
Dialogs\Dialogs Anonymous Callback
窗体回调函数使用.
1. 标准回调函数
ShowMessage(const Msg: string; CallBack: TUniDialogCallBackProc = nil)
procedure TMainForm.UniButton2Click(Sender: TObject);
begin
ShowMessage('Message-2', CallBack1);
end;
//定义回调函数
procedure TMainForm.CallBack1(Res: Integer);
begin
//OK返回1, 取消返回2;
UniMemo1.Lines.Add('Result-1: '+IntToStr(Res));
end;
2. MessageDlg(const Msg:string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack:TUniDialogCallBackProc)
procedure TMainForm.UniButton7Click(Sender: TObject);
begin
MessageDlg('mbYesNo', mtConfirmation, mbYesNo, DCallBack4);
end;
procedure TMainForm.DCallBack4(Res: Integer);
begin
case Res of
mrYes : UniMemo1.Lines.Add('DResult: YES');
mrNo : UniMemo1.Lines.Add('DResult: NO');
mrOK : UniMemo1.Lines.Add('DResult: OK');
mrCancel : UniMemo1.Lines.Add('DResult: CANCEL');
end;
end;
2. 匿名回调函数
这种写法适合代码量少的,多了就比较乱,还是标准的看着习惯。
procedure TMainForm.UniButton6Click(Sender: TObject);
begin
MessageDlg('Dialog3', mtConfirmation, mbYesNo,
procedure(Res: Integer)
begin
case Res of
mrYes :
MessageDlg('Dialog4', mtConfirmation, mbYesNo,
procedure(Res: Integer)
begin
case Res of
mrYes : UniMemo1.Lines.Add('DResult: YES');
mrNo : UniMemo1.Lines.Add('DResult: NO');
end;
end
);
mrNo : UniMemo1.Lines.Add('DResult: NO');
end;
end
);
end;
Demo学习: Dialogs Anonymous Callback的更多相关文章
- 《IT蓝豹》吹雪花demo,学习android传感器
吹雪花demo,学习android传感器 吹雪花demo,学习android传感器,嘴巴对着手机底部吹一下就会出现飘着雪花效果. 算是学习android传感器效果.本例子主要是通过android.me ...
- [Unity3D]做个小Demo学习Input.touches
[Unity3D]做个小Demo学习Input.touches 学不如做,下面用一个简单的Demo展示的Input.touches各项字段,有图有真相. 本项目已发布到Github,地址在(https ...
- 百度mobile UI组件GMU demo学习1-结构和初始化
移动web现在已经是zepto的天下,但是一直找不到合适UI库,找了一段时间,终于找到了百度的ui库gum和inter 的 appframework UI库 相比之下,百度的UI库更接地气,配合百度强 ...
- ShadowGun Demo学习(非技术向)
主要针对拿来主义,并对一些使用范围广的shader进行研究.虽然是4,5年前的demo,但还是有学习价值的 1.GodRays MADFINGER/Transparent/GodRays 传统的上帝之 ...
- 微信小程序官方demo学习
最近微信小程序很火,很喜欢那种轻应用,用完就走的理念.于是,下载好微信开发者工具,学习一下官方demo. 体验下来,有类似react和vue的感觉,dom类似react那种组件的,data-bindi ...
- Cesium学习笔记(七):Demo学习(自由控制飞行的飞机)[转]
https://blog.csdn.net/umgsoil/article/details/74923013# 这是官方的教程Demo,名字叫Use HeadingPitchRoll,顾名思义,就是教 ...
- 如何写好demo——学习感悟
文章标题:教你如何写好Demo应用 如何制作出最有用的demo呢? 简,易 在demo中,我们要专注于单一的主题.我们的教学覆盖了很大的知识范围,因此,化整为零是非常必要的. 例如,我们要说明Andr ...
- unity3d入门 Demo 学习记录
闲来学习一下 unity3d 的Demo,记录如下. 官方 Demo,名字为 Roll-A-Ball,如图 场景比较简单,包含地面.玩家精灵.主摄像机.墙壁.可拾取的方块.分数为示 text.平行光源 ...
- BNR Android Demo学习笔记(一)——CrimeIntent
开发环境:win7,Android Studio 1.2, 1.Model Crime,数据模型,每个Crime有一个UUID作为唯一标识. package tina.criminalintent; ...
随机推荐
- DAG上动态规划
很多动态规划问题都可以转化为DAG上的最长路,最短路,或路径计数问题. 硬币问题: 有N中硬币,面值分别为v1,v2,v3,……vn,每种都无穷多,给定非负整数S,可以选用多少个硬币,使他们的总和恰好 ...
- customerized convert from field type to DB field's type
@LastModifiedDate @Convert(converter = LocalDateTime2TimestampConverter.class) @Slf4j public class L ...
- 解决Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in
php 5个版本,5.2.5.3.5.4.5.5,怕跟不上时代,新的服务器直接上5.5,但是程序出现如下错误:Deprecated: mysql_connect(): The mysql extens ...
- PHP代码加密 -- php_strip_whitespace函数,去掉源代码所有注释和空格并显示在一行
<?php function stripCommentAndWhitespace($path = '') { if (empty($path)) { echo '请指定要操作的文件路径'; re ...
- linux -时间
cal查看日历 date查看当前系统时间 date -s“”修改系统时间 date +格式化系统时间 date +"%Y%m%d%H%M%S"
- CF Amr and Music (贪心)
Amr and Music time limit per test 1 second memory limit per test 256 megabytes input standard input ...
- [改善Java代码]枚举和注解结合使用威力更大
注解的写法和接口很类似,都采用了关键字interface,而且都不能有实现代码,常量定义默认都是pulbic static final类型的. 他们的主要不同点是:注解在interface前加上@字符 ...
- Netty学习链接
Netty实战精髓请参见:https://waylau.gitbooks.io/essential-netty-in-action/content/GETTING%20STARTED/Introduc ...
- Xcode编译时出现cannot run using the selected device提示
很多文章说这个管用: 1) Project->Info->Deployment Target->iOS Deployment Target更改为<=设备的版本号; 2) Tar ...
- Google推Android新开发语言Sky:流畅度 秒iOS
Dart初衷 作为当前市占率最高的智能手机操作系统,Android平台正在吸引着越来越多的开发者. 不过,对用户而言,Android的体验还不够完善,卡顿的情况时有发生.再深入点理解,许多应用的帧率达 ...