procedure Calback(Sender: TComponent; AResult: Integer);procedure TForm.Calback(Sender: TComponent; AResult: Integer);begin  case AResult of    mrYes:      begin end;    mrNo:      begin end;  end;end; //fomr窗体不需要代码创建 如下会报错 var  F_Envcategory: TF_Env…

UniGui的信息弹出框MessageDlg的原型定义如下: procedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack: TUniDialogCallBackAnonProc); 其中DlgType(对话框架的类型)1.mtConfirmation2.mtCustom3.mtError4.mtInformation5.mtWarning 示例如下 procedur…

wx.showModal wx.showModal({ title: '删除图片', content: '确定要删除该图片?', showCancel: true,//是否显示取消按钮 cancelText:"否",//默认是“取消” cancelColor:'skyblue',//取消文字的颜色 confirmText:"是",//默认是“确定” confirmColor: 'skyblue',//确定文字的颜色 success: function (res) {…

uniGUI下的MessageDlg使用发生了变化,最大的特点是: 1.成为了uniGUIForm的成员函数: 2.变成过程(procedure)了,也就是没有返回值了,使得程序不再具有线程阻塞性. 3.增加了一个传入回调函数的参数:callBack : TuniDialogCallbackAnonProc,该类型定义在uniGUIDialogs单元中: TuniDialogCallbackAnonProc = procedure (Sender : TComponent; Res : Inte…

一.在回调函数中调用自定义方法: 回调函数中不能直接使用this,需要在外面定义 var that = this 然后 that.自定义的方法.如下: //删除 onDelete: function (e) { var that = this; wx.showModal({ title: '提示', content: '确定要删除?', success: function (res) { if (res.confirm) { that.onEdit(e); } } }) }, //编辑 onEd…

UniGUI之UniLabel(31) uniGUI之自定义JS事件动作ClientEvents(30) uniGUI之文件下载(29) uniGUI之FDQuery(28) uniGUI之UniPopupMenu及右键菜单(27) uniGUI之上传文件UniFileUploadButton(26) uniGUI之通过URL控制参数(25) uniGUI之UniSyntaxEdit(24) uniGUI之uniEdit(23) uniGUI之MASK遮罩(22) uniGUI之uniColor…

Delphi中平常使用的消息框有四种形式,有ShowMessage.MessageDlg.Application.MessageBox.MessageBox.下面来深入了解下这四种形式的实现和使用.1.ShowMessage 显示一个带"OK"按钮的消息框  使用这个函数可以显示一个简单的带"OK"按钮的消息框,消息框的标题是应用程序的标题名,参数Msg字符串显示在消息框上.其源码如下: procedure ShowMessage(const Msg: string…

Delphi的消息对话框 输入输出inputBox()函数MessageBox()ShowMessage 对话框是Windows操作系统中程序与用户沟通的一种常见的交互方式,对话框可以向用户提供当前程序的运行状况,也可以接受用户输入的信息,在 Delphi中,对话框函数大体上可以分为两种——输入对话框函数和输出对话框函数. 输入对话框函数用于接收用户在程序运行过程中输入的信息,其中包括 InputBox(),InputQuery()函数. 输出对话框函数则用于显示一个对话框窗体和向用户报告当前程…

第一次编译时,设定android SDK: F:\RAD Studio XE6\PlatformSDKs\adt-bundle-windows-x86-20131030\sdk F:\RAD Studio XE6\PlatformSDKs\android-ndk-r9c C:\Program Files\Java\jdk1.7.0_40 SDK更新代理     XE6 不支持JStringToString.StringTojString.StrToJURI:use Androidapi.Help…

XE6 不支持JStringToString.StringTojString.StrToJURI:use Androidapi.Helpers //Splash Image Delphi XE5,XE6,XE7编译的程序在Android下启动会有一段时间黑屏,以前需要用Java扩展Activity增加Splash显示, 现在Delphi XE7增加了Splash Image显示功能了. 步骤: .鼠标右键点击工程,选择Options, .进入Application分页 .勾选Include Sp…

UniGui的信息弹出框MessageDlg的原型定义如下: procedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack: TUniDialogCallBackAnonProc); DlgType(对话框架的类型)1.mtConfirmation2.mtCustom3.mtError4.mtInformation5.mtWarning 示例如下   procedur…

转 UNIGUI安装教程.使用例子 http://my.oschina.net/u/582827/blog/203429?p={{currentPage-1}} 转 uniGui安装教程.使用例子 发表于1年前(2014-02-26 22:18)   阅读(238) | 评论(0) 0人收藏此文章, 我要收藏 赞0 7.16,杭州,阿里巴巴.阿里百川无线开放大会报名开启,用技术驱动无线新商业 摘要 uniGui安装教程.使用例子 目录[-] 转]uniGui安装教程.使用例子 转]uniGui安…

一.webxone的问题:1.目前稳定可用的版本好像是v2510:2.设计webxone应用时,窗口的“position”属性只能设置为poDesigned,而且不能动态改变窗口尺寸,否则在浏览器中显示不正常. 二.32位的unigui的isapi应用只能部署到32位的apache web server中. 三.安装mysql服务到windows server 中时,最好指定配置文件my.ini,格式如下: .\bin\mysqld.exe --install MaiaDB10 --defaul…

procedure TfrmEmployee.btnDeleteClick(Sender: TObject);var aBool: Boolean;begin inherited; MessageDlg('是否删除?', mtConfirmation, mbYesNo, procedure(Res: Integer) begin aBool :=Res = mrYes; if aBool then begin ClientDataSet1.Delete; if untDll.SaveData('…

function GetDeviceType(var OsName, BrowserName: string; var IsMobileDevice: Boolean): string; var I: Integer; BrowserInfo: string; OSTypes, BrowserTypes: TStringList; begin Result := ''; BrowserName := 'Unknown'; OsName := 'Unknown'; IsMobileDevice :…

近日单位需要用到会议通知单的打印功能,故引出篇. unigui是delphi环境下快速开发web应用的优秀工具,不再赘述,下面直接记录使用搭配使用,基本逻辑就是: unigui实现数据录入和浏览的web页---->点击打印按钮时使用[frxPDFExport]动态将报表导出为pdf------>将pdf文件动态载入打印预览窗口(UniURLFrame)实现打印预览功能. 具体实现: 1,用unigui控件实现数据的“增改删”,如下图: 2,unigui实现预览窗口,如下图,需要引入frxRep…

UniGUI 之UniDBGrid(05) 目录1]DataSource设置2]显示MEMO类型里的文字3]显示悬浮提示4]显示当前记录及总记录数5]读取所有记录,及分页6]在前面加上序号列7]不显示标题栏8]列排序9]编辑 和 更新 数据10]获得某单元格里的内容 11]标题别名 12]将某列设置为CheckBox格式 13]列标题下显示过滤编辑框,自动对列数据进行过滤 14.1]右键删除一条记录 14.2]右键删除多条记录 15]将UniDBGrid数据另存为网页格式,方便导出 16]自画整…

一.AJAX示例 AJAX全称为“Asynchronous JavaScript And XML”(异步JavaScript和XML) 是指一种创建交互式网页应用的开发技术.改善用户体验,实现无刷新效果. 1.1.优点 不需要插件支持 优秀的用户体验 提高Web程序的性能 减轻服务器和带宽的负担 1.2.缺点 浏览器对XMLHttpRequest对象的支持度不足,几乎所有浏览器现在都支持 破坏浏览器“前进”.“后退”按钮的正常功能,可以通过简单的插件弥补 对搜索引擎的支持不足 1.3.jQuer…

一.AJAX示例 AJAX全称为“Asynchronous JavaScript And XML”(异步JavaScript和XML) 是指一种创建交互式网页应用的开发技术.改善用户体验,实现无刷新效果. 1.1.优点 不需要插件支持 优秀的用户体验 提高Web程序的性能 减轻服务器和带宽的负担 1.2.缺点 浏览器对XMLHttpRequest对象的支持度不足,几乎所有浏览器现在都支持 破坏浏览器“前进”.“后退”按钮的正常功能,可以通过简单的插件弥补 对搜索引擎的支持不足 1.3.jQuer…

用到临界区 保护写日志的函数: 递归函数 删除目录下的所有文件: 循环创建或判断FTP的目录: 可改进的地方:循环压缩深层次目录的所以文件: 实现断点续传,或断点下载: {******************************************************************************* Copyright (C), 2014-2020, aicaipiao File name: UFtpContentThd.pas Author: lipingchen…

今天尝试用uniGUI做Web服务器,调用应用服务器的WebService,遇到些问题记录下来备忘. 1.对WebService的调用同一般App程序,只是注意如果WebService的执行时间较长,会报超时错误,此时需要处理: (1)在DataModule上放一个THTTPRIO控件: (2)在数据模板创建时,设置THTTPRIO控件的HTTPWebNode属性的超时时间,代码如下: procedure TUniMainModule.UniGUIMainModuleCreate(Sender:…

DELPHI VS PASCAL(87)  32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息. 一.创建和释放TRegistry对象 1.创建TRegistry对象.为了操作注册表,要创建一个TRegistry对象:ARegistry := TRegistry.Create: 2.释放TRegistry对象.对注册表操作结束后,应释放TRegistry对象所占内存:ARegistry.Destroy. 二.指定要操作的键 操作注册表时,首先应指定操作的主键:先给属性R…

unit untTree; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIFrame, uniGUIBaseClasses, uniToolBar, uniTreeView, Data.DB, Datasnap.DBClient, u…

描述:创建一个目录,不包含多级目录(多级目录使用System.SysUtils.ForceDirectories,Vcl.FileCtrl.ForceDirectories已过时) procedure CreateDirectory(Path: string); 参数一:给定的路径如D:\aa,非完整路径如aa则在程序当前目录下创建 完整代码 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils,…

if form1.showmodal:=mrok then 这句话什么意思? 最佳答案 这个问题说来话长,且听我慢慢道来... 首先,你仔细看一看,所有的命令按钮(不论是Button还是BitBtn)都有一个属性:ModalResult,该属性可以设置为mrOk .mrCancel...等等,默认值是mrNone. 平时,ModalResult属性没什么用处,但如果命令按钮放置到用showmodal显示(模态显示,一般用于显示对话框)的窗体上时,就大大的有用了. 作用体现在: 1.当设置命令按钮…

函数重载重载的思想很简单:编译器允许你用同一名字定义多个函数或过程,只要它们所带的参数不同.实际上,编译器是通过检测参数来确定需要调用的例程.下面是从VCL 的数学单元(Math Unit)中摘录的一系列函数: function Min (A,B: Integer): Integer; overload; function Min (A,B: Int64): Int64; overload; function Min (A,B: Single): Single; overload; functi…

1.状态栏组件 1.基本介绍 上图: 红框框内的就是状态栏. 他可以分成若干个区块,比如上者分为了两个区块,并且比例是固定的,创建时可以指定 每个区块都能够显示 信息,一般通过 绑定事件 实时更新 各个区块的内容 因为状态栏本身 组件,所以除了能够自己显示文本消息,还能够添加 其他组件,例如 进度条(常用).按钮.编辑框.等. 目前学习并用到是这些,还有未提及的希望能够在评论中告知,感谢. 2.基本创建过程 (有两种) 1.先创建一个 状态栏对象 然后添加到 窗口框架 中 基本过程代码如下: 首…

1.从键盘输入 Python 2有两个内置的函数用于从标准输入读取数据,默认情况下来自键盘.这两个函数分别是:input()和raw_input(). Python 3中,不建议使用raw_input()函数. input()函数可以从键盘读取的全都会转化为字符串类型. 图中可以看出 就算我们输入 123456789 input() 函数 还是完全把他看做 字符串 2.打开和关闭文件 Python提供了默认操作文件所必需的基本功能和方法.可以使用文件对象执行大部分文件操作. 一下方法为 Pyth…

记录自己搭建https的silk录音文件语音识别服务的调用过程,所有代码可在文中找链接打包下载 >>>>>>>>>>>>>>>>>>>>>>>> 欢迎转载 <<<<<<<<<<<<<<<<<<<<<<<< 本文原地址:ht…

下拉更新.分享.阅读标识 本文配套视频地址: https://v.qq.com/x/page/h0554i4u5ob.html 开始前请把 ch3-4 分支中的 code/ 目录导入微信开发工具 这一篇中,我们把列表这块的剩余功能做完:下拉更新.分享.阅读标识. 下拉更新功能 下拉更新这个功能与我们在第一章中写的小 demo 所用方法一致:onReachBottom. 当用户滚动过程中触发了 上拉 这个动作时候,微信小程序会自动监听到并执行 onReachBottom 这个函数,所以我们只需要把…