窗体delphi
delphi XLS文件另存为xlsx格式
ExcelApp.activeworkbook.saveas(AxlsExportFile+'\华宝导入'+ IntToStr(n)+ '.xlsx',51); https://www.cnblogs.com/guorongtao/p/13432383.html procedure SaveAs(c ......
Delphi字符串比较和大小写转换函数
首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 不区分大小写 参考 <NULL> 例子 CheckBox1.Checked := SameText(Edit1.Text, Ed ......
delphi判断服务已经被注册
function IsServiceRegistered(const ServiceName: string): Boolean; var SCM: SC_HANDLE; Service: SC_HANDLE; begin Result := False; // 打开服务控制管理器 SCM := O ......
使用.net core winform 写一个调用chatgpt3.5接口的聊天窗体
在.NET Core WinForms中调用ChatGPT-3.5接口的基本步骤如下： 创建一个新的.NET Core WinForms应用程序项目。 添加所需的包管理器。 在UI上创建一个聊天窗体，包含输入框和消息显示区域等控件。 在聊天窗体代码中，编写逻辑以处理用户输入和接收来自ChatGPT- ......
delphi FastReport 打印当前页（指定页）
# FastReport 打印当前页（指定页） ## 属性和方法 ### TfrxPrintOptions.PageNumbers ```delphi property PageNumbers: String; ``` 要打印的页码。 ## 例子 ### 打印指定页 ```delphi proced ......
delphi FastReport 直接打印（不弹出打印对话框）
# FastReport 直接打印（不弹出打印对话框） ## 属性和方法 ### TfrxReport.PrintOptions ```delphi property PrintOptions: TfrxPrintOptions; ``` 一组与报表打印相关的属性。 ### TfrxPrintOpt ......
delphi 字符串比较函数
# 字符串比较函数 ## 列表 | 方法 | 说明 | 大小写 | | | | | | System.SysUtils.TStringHelper.StartsWith | 返回是否以给定的字符串开头。 | 区分大小写 | | System.SysUtils.TStringHelper.Starts ......
[C#] winform窗体分布类实现
为Form1窗体添加一个partial属性的分布类，需要以下几步： 1. 使用Visual Studio创建你的新工程，包含窗体Form12. 创建一个新文件，命名成这样的格式：Form1.Behind.cs 3. 新class编辑为partial属性5. 保存全部并关闭Visual Studio6 ......
《Delphi精要》pdf版电子书免费下载
本书的核心内容是讲述Object Pascal 和VCL的重、难点知识（即所谓“精要”），集中于第3章、第5章。第2章、第4章阐明相应的一些基本概念，是为初学者而设立。本书也是一本参考手册，包括了“IDE的快捷键列表（2.8）、“编译指令”（3.4）、“VCL消息大全（5.2.4）、“常用函数和过程 ......
修复 winform窗体无边框最大化后遮挡任务栏
1、设置窗体的最大尺寸MaxinumSize属性：this.MaxinumSize = new System.Drawing.Size(System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Width, System.Windows.Forms. ......
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 ......
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 := ......
Winform 窗体遮罩层懒人处理法
前言 之前有个项目需要执行一个略微耗时的操作大概五六七八九十秒这样子，这个时候程序不能做其他操作，只能等待操作完成。为了提升一丝使用体验同时让Winform程序看上去高级一点🎃🎃🎃，就想到加一个遮罩层（MaskLayer）。虽然Winform没有原生的遮罩层，但是实现起来也不是很麻烦。 遮罩层 ......
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 ......
WPF：自定义PopHost控件实现PopUp控件与父窗体关联，去除TopMost状态，激活别的进程时隐藏
WPF中的popup控件默认TopMost模式，因此会在切换别的进程窗体时，仍然显示不隐藏。网上找了一圈，有国内帖子实现的代码（已无法找到网址），但在英文网站上找到这篇应该才是原出处-[Non-Topmost WPF Popup | Chris Cavanagh's Blog (wordpress. ......
c# Winform 防止重复打开同一窗体
方式一， foreach (Form frm in Application.OpenForms) { if (frm is form1) { form1.Activate(); form1.WindowState = FormWindowState.Normal; return; } } Form1 ......
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 ......
异步调用方法并弹出处理中窗体（转载）---线程池的封装
原文链接：[C#] 非同步呼叫方法並跳出處理中視窗 | 愛流浪的小風 - 點部落 (dotblogs.com.tw) 前言 當我們在Winform進行某些比較花時間的運算時， 若沒有使用非同步的方法來呼叫，畫面上的視窗就會顯示沒有回應， 這是一種比較差的使用者體驗，可能會讓使用者以為當機了， 在這邊 ......
[转]解决WebService 测试窗体只能用于来自本地计算机的请求
[转自]原文地址：https://www.cnblogs.com/JuneZhang/archive/2013/01/24/net.html 问题： WebService部署成站点之后，如果在本地测试webservice可以运行，在远程却显示“测试窗体只能用于来自本地计算机的请求”或者"The te ......