martian6125 's blog!

原创 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'对于显示日期的， 按钮的标题同样要...

原创 数据库表TUniTreeView树的快速生成

根据数据表的内容生成TUniTreeView树状结构，通常的做法就是从顶级开始，然后逐项递归查询遍历生成。这种方法在实现上容易做到，也很容易想到，但是效率比较低，因为数据库的检索(SQL语句需要解释执行，而且是对数据库文件进行操作)还是比较耗时的，尤其是树的层次较多，节点较多的情况。这里介绍的方法是以空间换取时间，只进行一次数据库检索，提取出全部数据，然后一次生成TUniTreeView树状结构。通过SQL语句，让返回的记录按照父节点ID、节点ID进行排序，这样保证每次当前要添加的节点记录的父节点都已经添加

转载 Web 应用服务器开机自启动

1. 概述1.1 版本系统版本 报表工程版本 报表工程 JAR 包版本 Web 应用服务器版本 JDK 版本 Windows10 10.0 2019-12-11 Tomcat-8.5.27 JDK1.8 注1：以上版本信息为下面操作示例中的版本信息，用户可根据自己的实际场景进行调整。注2：本文以实现 Windows 系统下 Tomcat 服务器自启动为例进行说明。注3：Linux 系统下 Tomcat 的自启动设置参见文档：Tomc

转载 Delphi unigi UniDBTreeGrid展开叠起 UniDBGrid自动调节列宽

展开叠起UniDBTreeGrid1.FullExpand; UniDBTreeGrid1.FullCollapse;UniDBGrid1.ForceFit;;自动调节列宽

原创 delphi uniGUI 获取当前IP

unimemo1.Text:=UniApplication.RemoteAddress;

原创 unigui-透明-登录界面

转载 （32）uniGUI for Delphi下如何动态创建控件

(中行雷威2019.5.30)（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943、860634510、299497712,进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1、

转载 （33）uniGUI for Delphi下如何禁用控件的右键菜单

(中行雷威2019.8.4)（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群299497712,860634510、484979943（已满）、进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】

转载 （34）uniGUI for Delphi下如何自动退出和启动

(中行雷威2019.12.5)（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943、299497712,860634510，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1、

转载 (36）uniGUI for Delphi UniDBGrid增加按钮列

(中行雷威2019.12.5)（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943、299497712,860634510，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1、

转载 （37）uniGUI for Delphi UniSweetAlert控件详解

(中行雷威2019.12.19)（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943、299497712,860634510，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1

转载 （39）uniGUI for Delphi 扫描二维码

（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1、C++Builder and Delphi 10.3.32、FMSof

转载 (40)UniGUI for CBuilder and Delphi如何使用FontAwesome图标字体

（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1、C++Builder and Delphi 10.3.32、FMSof

转载 （41）uniGUI for Delphi UniDBGrid 设置可勾选列及存储值和显示值对应关系

（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1、C++Builder and Delphi 10.3.32、FMSof