DELPHI
解决 DELPHI 中执行外部命令出现屏幕一闪的问题的方法
解决 DELPHI 中执行外部命令出现屏幕一闪的问题的方法 有的时候我们在DELPHI中使用ShellExecuteEx(exInfo: TShellExecuteInfo)函数执行一些外部命令，但会出现，屏幕一闪的问题，解决方法如下： 设置 exinfo.nShow := SW_HIDE; //隐 ......
delphi Panel和PageControl中加载窗体
Panel和PageControl中加载窗体 代码 Panel中载入窗体 procedure TForm1.Button1Click(Sender: TObject); begin Form2.Parent := Panel1; Form2.Align := alClient; Form2.Bord ......
delphi redisclient测试
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V ......
delphi 如何把一首mp3歌曲存入SQLite3里面qq81709989 (ChatGPT-4)
// 导入需要的单元uses System.IOUtils, System.SysUtils, FMX.Media, FMX.Types, Data.DB, FireDAC.Comp.Client, FireDAC.Stan.Param;// 定义一个全局变量，表示数据库连接var DBConnec ......
delphi JSON序列化（五）
关于TJSONConverters的使用 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.C ......
delphi JSON序列化（四）
涉及的重要类 REST.Json，REST.JsonReflect，REST.Json.Interceptors, REST.Json.Types单元中。 一、TJson类 最简单的一个类，提供了JSON -> OBJECT和OBJECT -> JSON几个方法，方法有TJsonOptions参数， ......
delphi XE10 连接mysql 对于 timestamp 类型字段查询的问题
目前 使用 delphi XE10.1 连接mysql (版本 8.0.19) 提示： raised exception class EFDException with message '[FireDAC][Stan]-43. Value [000⎰̴] is out of [Cardinal] ......
最近刚自学的DELPHI,实操一下，涉及[变量，常量，函数，写配置项]
unit LoadForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms ......
Delphi10.3的DBGrid之外键显示(07)
要在设计的时候，界面上显示值 procedure TForm13.FDQuery1idGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.AsInteger =1 then text:='一 ......
uniGUI学习之脱离Delphi直接写ExtJS从入门到精通081ExtJs学习之Button.setStyle
最少代码：HelloWorld.html源文件下载 https://docs.sencha.com/extjs/6.7.0/classic/Ext.button.Button.html 点击 事件 <link rel="stylesheet" href="theme-gray-all.css"> < ......
uniGUI学习之脱离Delphi直接写ExtJS从入门到精通00_JavaScipt基本语法
<script> function func1(){ alert('func1()'); }; </script> <select> <option>aa</option> <option>aa</option> <option>aa</option> <option>aa</option> </s ......
uniGUI学习之脱离Delphi直接写ExtJS从入门到精通10基本JavaScript_<input>与ExtJS无关
...HTML 中的 input 标签,看这一篇就够了_html input ......
uniGUI学习之脱离Delphi直接写ExtJS从入门到精通09基本JavaScript与ExtJS无关
<script type="text/javascript"> function removeOption() { var x=document.getElementById("mySelect"); x.remove(x.selectedIndex); } </script> <select id ......
Delphi 类（TObject、TPersistent、TComponent、TControl、TWinControl、TCustomControl、TGraphicControl、TInterfacedObject）简单介绍
TObject: VCL中所有类的根类，即是说：VCL中所有的类/组件/控件都是从TObject中继承而来。TObject类中定义了基本的 构造方法和析构方法。 TPersistent: 继承于TObject，按字典中的意思是“持久类”(姑且这样叫它吧，因为我一直就是这样叫这个类的-_-|)。该类在 ......
delphi 重新打开（Reopen）或最近打开（Open Recent）列表维护
重新打开（Reopen）或最近打开（Open Recent）列表维护 介绍 列出最近打开的项目和文件，供选择重新打开。 重新打开列表 由一条线分为两组： 项目列在线的上方 （例如，MyBigApp.dproj 或 MyFastApp.cbproj） 源文件列在线的下方 （例如，MyControl.p ......
delphi 窗体设计器选项（显示非可视组件、自动创建窗体）
窗体设计器选项（显示非可视组件、自动创建窗体） 选项介绍 窗体设计器的首选项。 Tools > Options > User Interface > Form Designer Grid options Display grid 在设计器上显示点网格点，以帮助对齐控件。 Use designer g ......
delphi 使用WIC（Windows 映像组件）加载图片
使用WIC（Windows 映像组件）加载图片 TWICImage 是 Microsoft Windows 映像组件的封装。 WIC映像是一个容器，允许加载多种映像格式。 可以使用 TWICImage 实例来加载、存储和显示位图、JPEG、PNG、GIF、TIFF 或使用 WIC API 注册的任何 ......
delphi - 调整表单大小，同时保持纵横比
https://www.coder.work/article/5928583 在Form1的 OnCanResize 事件添加以下处理程序似乎对我来说效果很好: procedure TForm2.FormCanResize(Sender: TObject; var NewWidth, NewHeig ......
delphi模拟redis单元
1 unit g_uSdRedis; 2 3 interface 4 5 uses 6 Windows, 7 Messages, 8 SysUtils, 9 Variants, 10 Classes, 11 Graphics, 12 Controls, 13 Forms, 14 Dialogs, 1 ......
Delphi：循环语句for-in
https://www.jianshu.com/p/0fd88af44e4b 1.for-in 循环中，循环对数组， 列表，字符串或其他某种类型的容器的每个元素进行操作。 2.打开IDE，新建VCL应用，添加一个button1，一个memo1，双击button1，编写代码： procedure TF ......
Delphi服务程序打开界面程序
function WTSQueryUserToken(SessionId: ULONG; var phToken: THandle): BOOL; stdcall; external 'Wtsapi32.dll'; procedure CreateProcessByUser; var Session ......
Delphi新语法IfThen
https://docwiki.embarcadero.com/Libraries/Sydney/en/System.StrUtils.IfThen function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): ......
delphi cxgrid 过滤列表增加右键
首先弹出来的下拉过滤列表也是一个form 思路,在不改源代码的情况：hook,捕捉 WM_SHOWWINDOW 消息，通过源码得知窗口类名 为”TcxGridFilterPopup“ 再通过句柄转得到实例，同时在本单元type 一下新的 TcxGridFilterPopup， TcxGridPopu ......
DELPHI模板编程
DELPHI模板编程 procedure TCRUD<T>.execsql(OnTableModel: TTableModel); //执行事务性SQL begin if req.Body = nil then Exit; var pool: TDBPool := GetDBPool(dbid); ......
delphi ADO通过ODBC连接MySQL
ADO通过ODBC连接MySQL 操作步骤 下载32位MySQL ODBC 驱动 （MySQL Connector/ODBC 下载地址） 选择ADO驱动程序 Microsoft OLE DB Provider for ODBC Drivers 设置连接字符串 连接字符串 使用数据源名称 Provid ......
Delphi实现登录窗体与主窗体的过程
登录窗体： type TfrmLogin = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations ......
Delphi Debug模式下可以但是Release模式下报错原因之一
今天上午才遇到的一个问题，Delphi在debug模式下运行好好的，切换到release模式下竟然无法正确返回？ 把工程设置中的 Optimization 中的勾去掉再编译， 这下Release模式下运行没有问题了。 当然这里只记录了这一种情况，大家如果遇到跟我一样问题的时候不妨试试，看能不能解决问 ......
Delphi Android程序启动过程
文章转载于不得闲大师的文章，源文链 https://www.cnblogs.com/DxSoft/p/4460236.html Delphi的Android程序是原生的程序，也就是NativeActivity。那么就需要先看一下NativeActivity的原理， 在AndroidManifest. ......
delphi 变体Variant数组常用操作
变体Variant数组常用操作 代码 procedure TForm1.Button1Click(Sender: TObject); var Arr1, Arr2, Arr3: Variant; I, J: Integer; begin //创建包含10个整数类型元素的变体数组 Arr1 := Va ......