窗体pagecontrol delphi panel
解决 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 ......
ACCESS 快速构建修改数据的窗体
有个客户表: 现在需要创建一个可以修改客户数据的窗体,我们一般的做法是: 1.选中数据表: 客户列表 2.在菜单中选择 "创建" --> "窗体". 3.调整一下格式,和添加一下按钮,就变成了这样,初始状态下,它会自动绑定字段值.此时如果用户对某个值做了修改,会直接修改数据表中的值,这不是我们想要的 ......
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] ......
不同窗体间修改对方控件属性
在WinForms应用程序中，若要从TestForm修改Form1中控件的Text属性，你需要确保Form1的实例在TestForm中是可访问的。有几种方法可以实现这一点，最常见的方法是通过构造函数传递Form1的引用，或者使用公共属性或方法来设置。 首先确保控件（在本例中为Button）在Form ......
最近刚自学的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"> < ......
pyside6 在窗体中右击菜单（上下文菜单）
思路 先添加上下文策略 添加QAction，并且链接方法 将所有的QAction都添加到窗体 代码 from PySide6.QtWidgets import QApplication, QWidget from PySide6.QtGui import QAction from PySide6.Q ......
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 ......
Form窗体添加边框阴影效果
public partial class Form1 : Form { public Form1() { InitializeComponent(); } public bool DrawShadow { get; set; } = true; protected override CreatePa ......
使Form窗体允许被拖动
public partial class Form1 : Form { public Form1() { InitializeComponent(); } [DllImport("user32.dll")] public static extern bool ReleaseCapture(); [D ......
Delphi服务程序打开界面程序
function WTSQueryUserToken(SessionId: ULONG; var phToken: THandle): BOOL; stdcall; external 'Wtsapi32.dll'; procedure CreateProcessByUser; var Session ......
Panel 管理
样本公司代码 55 365 53 kurun 59 InsightWorks 52 Ipanel 优先样本公司 ・365 ・Paneland ・百数来 ・MDQ 样本公司开票_联系邮件内容 项目案件ID： PJ-00034 发票备注中请注明： 1、案件ID 2、样本单价和最终完成数量。 3、问卷编辑 ......
Delphi新语法IfThen
https://docwiki.embarcadero.com/Libraries/Sydney/en/System.StrUtils.IfThen function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): ......
C++ Qt开发：TabWidget实现多窗体功能
Qt 是一个跨平台C++图形界面开发库，利用Qt可以快速开发跨平台窗体应用程序，在Qt中我们可以通过拖拽的方式将不同组件放到指定的位置，实现图形化开发极大的方便了开发效率，本章将重点介绍`TabWidget`标签组件的常用方法及灵活运用。`QTabWidget` 是Qt中用于实现标签页（tabbed... ......
delphi cxgrid 过滤列表增加右键
首先弹出来的下拉过滤列表也是一个form 思路,在不改源代码的情况：hook,捕捉 WM_SHOWWINDOW 消息，通过源码得知窗口类名 为”TcxGridFilterPopup“ 再通过句柄转得到实例，同时在本单元type 一下新的 TcxGridFilterPopup， TcxGridPopu ......