martian6125 's blog!

转载 uniTreeView多选

/不知什么原因，不起作用。//如果有一个节点未选中，可以判断，当前父节点肯定是未选中状态，所以此时不必向上遍历。//如果后台传递数据时，选择状态正确的话，此处不需要执行。//选中状态，遍历父节点，判断有父节点下的子节点是否都全选。//此时父节点不可能是选中状态。//未选中，让父节点全都 不选。/** 递归遍历子节点，复选框 **//** 递归遍历父节点 **///父节点当前选中状态。form.script 设置。uniTreeView多选。

转载 delphi ide优化设置(陆续整理)

Tool-Options-User Interface-editor -Language -Code Insight 不勾选Auto complete。不勾选：Tool-Options-IDE-Compiling and running- Show Compilerprogress。不勾选：Tool-Options-IDE-Compiling and running- Show Command line。目前整理至delphi 11版本 即VER360。

转载 使用plsql developer连接远程oracle数据库服务的办法（简单版）

使用plsql developer连接远程oracle数据库服务的办法（简单版）_plsqldeveloper连接oracle数据库-CSDN博客

原创 Delphi】Android 开发HTTP请求出错解决方案

解决办法：打开Delphi工程文件中的 AndroidManifest.template.xml 这个文件，该文件在工程目录下，在<application 中增加这一句： android:usesCleartextTraffic="true"版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。原文链接：https://blog.csdn.net/sensor_WU/article/details/134317060。然后重新编译系统，问题解决！

原创 Delphi Android WebBrowser 加载自定义scheme报错net::ERR_UNKNOWN_URL_SCHEME

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。解决方法：实现WebBrowser1ShouldStartLoadWithRequest事件，过滤掉非http\https开头的url。原文链接：https://blog.csdn.net/qqww155/article/details/105862632。

原创 Delphi XE 安卓Web开发 错误：net::ERR_CLEARTEXT_NOT_PERMITTED

1、确保已经申明权限（AndroidManifest.xml 文件）2、开启 usesCleartextTraffic。

原创 delphi tabcontrol 隐藏页签

以下是一个简单的例子，演示如何在 Delphi 移动应用中设置。这样，只有页签的内容会显示，页签本身会被隐藏。在Delphi中，如果你想要在移动设备上使用。根据你的具体情况，你可能需要调整这些名称。并隐藏某些页签，你可以通过设置。请注意，这个例子假设你已经有一个。属性，并添加了三个标签页。函数用于创建和初始化一个。

转载 Delphi IdHttpServer解决 Http请求跨域问题

/Response 增加允许跨域请求头属性，即可允许跨域访问。

原创 FireDAC 接占线导致另一个 hstmt DataSnap

所有的FDQuery，FDTable的FetchOptions->Mode = fmAll 就好了。

原创 unigui 退出时 释放所有组件

请注意，在实际应用程序中，你可能还需要考虑其他因素，例如组件可能被多个对象引用，或者组件可能是动态创建的，在其他地方也可能被引用等。确保在释放组件之前，没有任何其他代码持有对这些组件的引用。在这个事件中，你可以遍历所有组件并释放它们。属性则用于访问所有组件。在释放组件时，请注意组件之间可能存在依赖关系，应先释放依赖较少的组件。在UniGUI框架中，当应用程序需要在退出时释放所有组件，可以通过应用程序的。属性用于访问所有自定义表单，而。

原创 datasnap 上传/下载大文件(本Demo以图传片文件为例)

datasnap 上传/下载大文件(本Demo以图传片文件为例)

原创 Delphi XE 10 跨平台三层数据库应用教程

Delphi XE 10 跨平台三层数据库应用教程

原创 DataSnap侦听端口动态设置问题

DataSnap侦听端口动态设置问题

原创 trayicon 恢复时无法显示窗口

在Self.Show前加两句：

转载 [转]Delphi中，让程序只运行一次的方法

因此，在Win32系统中最好的解决方案是利用那些不依赖于进程的API对象，并且它们的使用也很简单，互斥对象就可以解决这个问题。而利用窗口的标题的方法也有问题，因为窗口的标题有可能发生变化(以Delphi和Word为例，每次打开不同文件，它们的标题都会变化)，所以这种方法不可取。其中，参数lpCalssName 是要查找的窗口的类的名称，参数lpWindowName是要查找的窗口的标题(Caption)。位的Windows的技术，是调用FindWindow()API函数去搜索一个已激活的程序窗口。

转载 让表格看起来更高大上？OrangeUI做的到！

比如Delphi控件中最强大的表格控件，当属DevExpress控件包中的cxGrid，要从头开发一个像它那样的，那简直就只是比登天要简单一点的。目前Web已经成为管理系统的主流，用Delphi原生控件开发出来的土灰土灰的界面看起来已经像是旧时代的产品了。了解OrangeUI移动开发的朋友都知道，它是用来设计手机上的列表项样式的。它只是一个控件的容器，它提供绘制方法可以将它里面的子控件绘制到任何地方，还是有很多不足的，比如表格中有一个状态列，能把它做的好看一点吗？Delphi中有很多强大的控件。

转载 Delphi程序员不应该再为图标而烦恼，快来使用SVG吧

虚拟的图片列表，链接到SVGIconImageColleciton，可以调整SVG图标的大小、不透明度、灰度等，官方不建议使用。我使用的是SVGIconImageList，它到今年2月份还在更新，star的人数也最多，当Fixed Color为clDefault时，表示不调整颜色，使用SVG原始的颜色。FixedColor设置为$00F5727C，表示按下时使用这个颜色作为图标颜色，上面这些问题，一般都可以由公司里的UI设计师来处理，但是不是每个公司都有UI的。

转载 恢复Delphi工具栏

不知什么原因，Delphi ide的工具条显示错乱了，点打开单元的按钮也不好用，在界面上怎么设置也不好用，挺长时间了，今天看盒子里有人说通过操作注册表的方法，能解决，试了一下，果真好用。计算机\HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\22.0\Toolbars。3.重新进入Delphi，问题解决！2.把Toolbars删除！1.打开注册表，找到下面项。删除后，工具条恢复了！

转载 Delphi XE UniGUI 部署（加载页面只出现 loading ）

Delphi XE UniGUI 部署

原创 uniGUI使用客户端布局制作工具条

接下来，放置四个按钮，这里采用ChinaCock UniGUI按钮控件：CCUniGUILayUIButton。每个按钮的Flex设置为1，这样，在客户端计算每个按钮的宽度=1/(1+1+1+1)，即占容器控件25%宽度。前三个按钮的Margins设置为 0 2 0 0，即按钮右侧留2个像素的宽度，让按钮之间留出空间。如上图，我想制作一个工具条，上面放四个按钮，每个按钮占工具条25%的宽度。这样设置的目的，是他的内部子控件按客户端方式布局。这里高度，即为工具按钮的高度。

转载 UniGui web客户端与本地exe通讯

在Windows下，按照网上找到的例子实现自己的Url Protocol，但是发现一直启动不了指定的Exe，浏览器一直提示未找到指定文件，通过测试发现这个Protocol起名字不能有"_"，比如定义成My_Protocol就会启动不了，但是定义成MyProtocol就可以。URL Protocol服务协议，简单说是点击一个网页的链接，通过这个链接执行本地应用程序，并向其传递相应的数据，也就是说，实现网页调用本地应用程序。如果你电脑中装有QQ，在IE地址栏输入：“tencent://Message/?

转载 解决UniDBTreeGrid在数据更新后自动折叠的问题

UniDBTreeGrid控件在数据更新之后，总是会自动折叠，我想要让它既更新了数据，又不自动折叠。通过以上三个步骤即可解决问题。

转载 UniGui web客户端与本地exe通讯（二）

tip:提示以下，该方法每次都会唤醒一个exe，也就是说执行多次就会打开多个exe，对于此问题，可以使用进程互斥（CreateMutex）等方法，防止exe多次启动，但是同时要处理参数传递，也就是要通过共享变量，或者namepipt，或者通讯等方式后启动的exe把接收到的参数传递给前一个exe。"URL Protocol"="D:\\soft\\你的exe名字.exe"@="\"D:\\soft\\你的exe名字 .exe\" \"%1\""@="D:\\soft\\你的exe名字.exe,1"

转载 UniDBGrid序号列添加标题

UniSession.AddJS('MainForm.UniDBGrid1.columnManager.columns[0].setText("序号")');有人想要在UniDBGrid的序号列加上标题，就是这里。

原创 UniGui web客户端与本地exe通讯（一）

UniGui web客户端与本地exe通讯

转载 DELPHI 旧控件安装到 DELPHI11 新版环境的操作

加入识别新版号的代码，找340（10.4版)位置，下面加入 350 的记录，即可识别 DELPHI 11 的安装支持了。版权声明：本文为CSDN博主「郝人（好人）」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。原文链接：https://blog.csdn.net/net1999/article/details/121494581。

转载 uniGUI动态建立Form及释放

记录

转载 去掉Delphi程序启动时的welcome page(欢迎页)

去掉Delphi程序启动时的welcome page(欢迎页)

转载 UniDBGrid

UniDBGrid

转载 unidbgrid分页显示

转载 Unidbgrid自动调整列宽

UniDBGrid1 -> ClientEvents -> ExtEvents [Ext.data.Store[store] ] addstore.loadfn:function store.load(sender, records, successful, eOpts){ sender.grid.columnManager.columns.forEach(function(col){col.autoSize()})}

转载 打开协同工程报错

在活字格 V5.0 Update 1 版本发布后，我也开始用上了这个期待已久的功能，它很好的满足了我的这几个需求：1. 工程文件上云，自己可以随时随地获取最新工程文件，再也不像过去那样出门带U盘。2. 更方便和小伙伴们协作开发活字格应用。3. 通过第三方工具，比如码云（没有打广告），可以可视化的查看历史版本记录时间线，方便获悉工程的迭代信息。并且我相信，未来基于第三方版本管理工具的扩展玩法充满了想象力。因为协作功能很好的满足了我以上需求，我使用该功能管理的工程文件逐渐多了起来。在使用中，有看到论坛里的一名小

转载 如何在不影响库存现存量数据的基础上调整存货核算的数量？

启用了库存管理模块后，存货核算不能自制单据了（除了存货核算假退料单据-红字材料出库单），而存货核算的出库调整单或入库调整单只能调整存货核算中的结存金额，不能调整存货核算的结存数量，那么如何在不影响库存现存量数据的基础上调整存货核算的数量呢？下面的方案中我们用库存管理的其它入库单来实现调整存货核算的数量。第一步：修改存货核算参数IA0033（库存统一成本域出入库仓库单据是否传入存货核算）为否：第二步：修改单据模版：登录集团-企业建模平台-模版管理-单据模版设置工具，找到库存其它入库单（编码

原创 调整api参数大小限制 单位kb

解决方案：例如总账接口 修改U8CERP\api\config\gl.config 增加 transferSize 配置 单位是kb 详细参考方案附件

原创 怎样去掉DELPHI 10.3.3 启动后的 security alert 提示窗体

1. Delphi 启动时不显示【欢迎】重开2. 修正： DELPHI10.3.3启动后就提示securityalert在桌面的快捷方式里添加一个参数-np要加-pDelphi-np　　　"D:\ProgramFiles(x86)\Embarcadero\Studio\20.0\bin\bds.exe"-pDelphi-np...

转载 7.0 在服务端把用户信息设置到了SQL,SQL库丢了以后再怎么处理

功能通过"用户信息数据库配置"功能,把用户信息,放到了SQL server的数据库中.无意中删除了,这个库以后.服务端无法登录了.有什么版本可以重新把用户信息,调整回内建的SQL lite可以在服务器上，C:\Users\Public\Documents\ForguncyServer，这个路径下改这个文件，删掉对应的外联库配置，重启服务器就好了...

原创 UniDBGrid1.ForceFit:=True；//自适应宽度

UniDBGrid1.ForceFit:=True;//自适应宽度

转载 服务器同时运行两个不同版本的Tomcat

当第一个tomcat启动后，后面tomcat的server.xml中的端口不管怎么改，仍然会报端口冲突。后来在dos下运行才发现所有的tomcat都会去找CATALINA_HOME和CATALINA_BASE这两个环境变量，因此步骤如下： 1.使用压缩版的tomcat不能使用安装版的（至少有一个是压缩版的）。 2.对其中的一个压缩版的Tomcat更改配置(见第3步)，另一个tomcat的配置不变。 3.增加环境变量CATALINA_HOME2，值为新的tomcat的地址；增加环境变量CATALI...

转载 解决某些软件无法在虚拟机中运行的方法

在虚拟机内下载并安装微图，直接打开会被提示“Sorry, this application cannot run under a Virtual Machine”，大概意思就是“对不起，这个应用不能在虚拟机上运行”。这时候我们需要先关闭虚拟机（不关闭之后的修改无效），找到在新建虚拟机时系统的安装目录（图2）（不是软件虚拟机的安装目录！），找到目录下的类似于“Windows 10 x64.vmx”的文件（这里安装的win10，所以是这个名字）。找到后以记事本的方式打开该文件，在文本的末尾增

转载 RzDateTimeEdit按钮改为中文

对于显示事件的，首先设置好几个按钮的标题，如果不设是默认的英文。有空的话还可以设置Hint信息的内容。 然后设类型为etTime， 接下来设Format（默认不显示秒数！） CaptionTodayBtn = '今日' CaptionClearBtn = '清除' CaptionSet = '设定' EditType = etTime Format = 'hh:nn:ss'对于显示日期的， 按钮的标题同样要...