setstyle unigui delphi button
《Delphi精要》pdf版电子书免费下载
本书的核心内容是讲述Object Pascal 和VCL的重、难点知识（即所谓“精要”），集中于第3章、第5章。第2章、第4章阐明相应的一些基本概念，是为初学者而设立。本书也是一本参考手册，包括了“IDE的快捷键列表（2.8）、“编译指令”（3.4）、“VCL消息大全（5.2.4）、“常用函数和过程 ......
(05)UniGUI何输出FastReport的pdf
拖一个frxPDFExport1和frxReport1到界面 上 rocedure TMainForm.UniButton2Click(Sender: TObject); begin with frxPDFExport1 do begin DefaultPath := 'D:\'; FileName ......
delphi7使用rave5.0展现数据库数据报表
时隔多年，回头再次拿起Delphi。使用Delphi7展现Rave设计的报表，尝试了很多次， 目前仅掌握的两种方式： ①不在delphi程序中设置数据库连接组件，直接调用Rave报表文件展现，获取数据是在rave文件中设置数据库连接并完成的（DriverDataView）。（这种还需要补充加载驱动解 ......
delphi model序列和还原
delphi model序列和还原 unit serialize; /// <author>cxg 2022-8-30</author> interface uses System.SysUtils, Grijjy.ProtocolBuffers, System.JSON.Serializers; ......
delphi7使用QuickReport快速生成报表
QuickReport报表组件是Delphi7之前版本广泛使用的数据库报表设计工具组件， 在Delphi7版本中默认没有加载在Delphi7的工具栏上。因此，需要手动安装加载一下，安装QReport组件插件步骤如下： ①在Delphi7中执行菜单[Component]==>[Install Pack ......
WPF 绑定command在触屏上操作时，即使点中button也可能不触发
现象： WPF程序绑定的command在触摸屏上，点击button后，button绑定的事件偶尔会出现不响应的情况。确认100%点击有效，不会出现误触的情况。 但是用鼠标点击，绝对不会出现这种现象。 原因： 在非触屏环境，bingding command是由点击来触发，即是使用鼠标等输入设备来执行点 ......
delphi 正则表达式
# 正则表达式 ## 代码 ### 匹配 ```delphi uses System.RegularExpressions; procedure TForm1.Button1Click(Sender: TObject); var vMatch: TMatch; begin //匹配正则表达式 vMa ......
Skia For Delphi 6.0 beta 1
这个版本，将是与官方集成后的版本，Skia.pas都改成System.Skia了！爽！！期待Delphi 12的发布！ ......
Delphi 原生支持DataSet导出Json
Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 procedure TForm18.Button2Click(Sender: TObject); var cV: TDatasetToJSONBridge; jo: Tjsonobject; begin cV := ......
Delphi FASTreport 4 自动补空行的方法
写了一个比较简单易懂易调试的补空行的方法 在masterdata的OnAfterPrint加入事件 procedure MasterData1OnAfterPrint(Sender: TfrxComponent);vari,j,k,hh:integer; hs:string; //当前行数begin ......
Delphi 11.3编译旧项目APP安装出错
今天编译一个旧的项目，已经记不得是什么版本的了，2018年项目，编译成功后，在华为HM3.0上安装正常，发给朋友，说安装出错。 开始查原因，发现11.3，生成的targetSdkVersion为32，手工改成非32，如31，30都可以安装。 DelphiTeacher说，加android:expor ......
Delphi 移动窗体
#### 移动窗体 * 使用非标题栏移动窗体(在窗体中增加私有方法,如下) ```delphi procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin DefaultHandler(msg); if Msg.Result=HTCLIENT ......
自定义系统级无窗口全局快捷键热键-Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801-2023年6月9日
自定义系统级无窗口全局快捷键热键-Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801-2023年6月9日 program Project1_SetHotkeyBaiduSyncDisk; uses Forms, Unit1_SetHotkey ......
DELPHI android 小米 解释软件包时出现问题
环境：delphi d11.3 Android SDK 25.2.5 编译出来的APP无法在小米手机上安装，提示：解释软件包出现问题。 经友人指导，在 AndroidManifest.template.xml 文件的 activity 节点加入如图所示的选项，重新编译APP即可。 android:e ......
WebSocket-scgWebSocket For Delphi
#### sgcWebSocket 组件作为商业组件，相对比较成熟，今天研究一下，参考官网地址：https://www.esegece.com * ##### 服务端 >>> sgcWebSocketServer 属性：Bindings 增加监听socket 配置监听Ip地址和端口 Active 激 ......
delphi 回调函数例子 用函数过程作为参数
转：今天有个朋友问我怎么用函数或者过程作为函数的参数呢，我说网上有挺多的，然而他告诉我很多例子运行不起来，我搜了几个测试了下，不知道是不是我自己的软件版本的问题，运行不了，所以自己研究了下，把自己能运行的贴出来，和大家分享分享。 先说说回调函数需要注意的几个步骤吧， 首先要声明一个类型； type ......
Delphi XE TTask的常用方法
Delphi XE TTask的常用方法 1、创建TTask对象使用TTask类需要先创建一个TTask对象，可以通过以下方式创建： task := TTask.Create(procedure begin // 这里编写任务代码 --滔Roy 2023.06.06 end); 2、启动、等待、取消 ......
uniGUI学习之UniHTMLMemo1(62)
https://blog.csdn.net/dlboy2018/article/details/82903680 UniHTMLMemo1.Lines.Add("<p>"+UniHTMLMemo3.Text);//发 UniHTMLMemo1.Lines.Clear();//清空输入框 在这里你会发 ......
selenium click skip_button("introjs-skipbutton")
class INTERFACING(): def __init__(self): self.driver_initialized = False self.driver = '' self.MAX_TRIALS = 2 # self.chrome_version = get_google_chrom ......
delphi判断多个CheckBox是否勾选（几种做法）
看到群里网友在问这个问题？尝试写一下代码 1、用FindComponent函数 根据控件名称动态获取对应的控件状态 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; str: string; begin str := '' ......
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放 1、OLEVariant 的空值判定 var v: OLEVariant; begin v := 'TaoRoy 2023'; if VarIsEmpty(v) or VarIsNull(v) then ShowM ......
delphi xe10 提示没有定义DecimalSeparator 的 解决方法
delphi xe10 提示没有定义DecimalSeparator 的 解决方法 只需要把DecimalSeparator前加上FormatSettings变成 FormatSettings.DecimalSeparator；如果提示没有定义ShortTimeFormat，DateSeparato ......
Delphi RandomRange() - 返回指定范围内的随机整数
Delphi RandomRange() - 返回指定范围内的随机整数 单元：math 原型： function RandomRange(const AFrom, ATo: Integer): Integer; begin if AFrom > ATo then Result := Random(A ......
如何使用delphi编译heidisql
本次使用delphi 11.3版本，delphi的社区版已经免费下载了，申请完之后官方会把下载地址和序列号发到邮箱中 1）下载安装过于简单就不写了 2）git拉取heidesql的源代码 3）delphi加载并安装SynEdit，点击Open Project后加载SynEdit.groupproj ......
微信小程序常用的view、text、button、image组件
【黑马程序员前端微信小程序开发教程，微信小程序从基础到发布全流程_企业级商城实战(含uni-app项目多端部署)】 https://www.bilibili.com/video/BV1834y1676P/?p=9&share_source=copy_web&vd_source=03c1dc52eeb ......
Delphi-判断一个对象是否释放，改造官方的Assigned
直接上例子了，基础知识自己去了解，首先定义一个类： TPerson = class public name: string; age: Integer; constructor Create(name: string; age: Integer); end; constructor TPerson. ......
delphi FastReport 综合报表（批量预览、打印）
# FastReport 综合报表（批量预览、打印） ## 属性和方法 ### TfrxReport.ShowPreparedReport ``` procedure ShowPreparedReport; ``` 显示之前通过`PrepareReport` 调用构建的报表。 > 当报表组件构建报表 ......
Delphi SynCrtSock TWinHTTP
TWinHTPP /// a class to handle HTTP/1.1 request using the WinHTTP API// - has a common behavior as THttpClientSocket() but seems to be faster// over a ......
el-button 鼠标移开后不自动失去焦点问题
在按钮点击后强制按钮失去焦点 1.在按钮点击的方法后加上失去焦点的方法 <el-button @click="showDetail(scope.row, $event)">详情</el-button> showDetail (rowData, event) { if (event.target.no ......
Delphi 12 最新消息
1.新版本将集成Skia4Delphi。 这绝对是有史以来最重要的更新，官方通过深度集成Skia4Delphi，将实现更高质量的界面，更有效率的界面，从此，毛刺现象将成为历史！ 2.C++将集成Visual Assist。 这结于C++用户来说，绝对的福音！ 3.RTL，IDE，Compiler，P ......