datetimepicker delphi style
解决 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] ......
tf.keras.layers.Attention: Dot-product attention layer, a.k.a. Luong-style attention.
tf.keras.layers.Attention( View source on GitHub ) Dot-product attention layer, a.k.a. Luong-style attention. Inherits From: Layer, Module tf.keras.la ......
最近刚自学的DELPHI,实操一下，涉及[变量，常量，函数，写配置项]
unit LoadForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms ......
DBGrid中插入DateTimePicker(08)
DBGrid中插入DateTimePicker DateTimePicker inside a DBGrid Here's how to place a TDateTimePicker into a DBGrid. Create visually more attractive user inter ......
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 ......
Vue——vue2监听元素style变化
前言 纯粹是为了偷懒，不想再安装swiper来渲染，直接改造下element-ui的走马灯，实现类似的效果，最主要的是后续会迭代到vue3，所以这里临时的实现下即可； 内容 元素绑定ref 给需要监听的元素添加ref，这里是ref="carouse" <div v-for="(nodes, inde ......
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 ......
Vite+Vue3+vite-plugin-style-import 2.0按需引入vant 4组件
首先在项目根目录执以下以命令，安装好必要的组件包： # Vue 3 项目，安装最新版 Vant cnpm i vant # 添加按需引入插件，它的作用是在引入组件库中的组件时支持按需引入，减小打包后代码的体积 cnpm install babel-plugin-import -D # 添加按需引入插 ......
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 ......
geoserver中styles引用外部图片
使用geoserver发布图层，需要显示指定的图标 从geoserver用户手册——PointSymbolizer中可以了解到只需在PointSymbolizer时候使用ExternalGraphic标签，其使用说明如下： <PointSymbolizer> <Graphic> <ExternalG ......
winform datetimepicker 设置默认值时 Text 与value不一致
解决方法： 1 DateFrom.Checked = true; 2 DateFrom.Value = DateTime.Today.AddDays(-7); 3 if (DateFrom.Handle == null) 4 System.Threading.Thread.Sleep(0);//防止 ......
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 ......
Freezing with Style 题解？
好像不是题解，算是记录。 记一个 Trick：当求路径边权的中位数的最大值的时候，可以先二分一个答案 \(mid\)，然后把大于 \(mid\) 的边设为 \(1\)，否则设为 \(-1\)。这样只需要看路径长度是否大于零就可以判断出有没有中位数大于等于 \(mid\) 的情况了。 当然类似到求一个 ......