窗体destroy delphi close
解决 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.调整一下格式,和添加一下按钮,就变成了这样,初始状态下,它会自动绑定字段值.此时如果用户对某个值做了修改,会直接修改数据表中的值,这不是我们想要的 ......
scp 出现 subsystem request failed on channel 0 scp: Connection closed 的解决方法
. . . . . 先说结论,给 scp 命令添加一个 -O (大写字母O,不是数字0)参数就可以了。 开启故事模式 最近在使用 Gerrit 下载代码的时候,发现出现这样的错误: >$ git clone "ssh://user@10.10.10.13:29418/project/manifest ......
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 ......
下载文件报错:java.io.IOException: UT010029: Stream is closed
在项目中使用EasyExcel导出excel然后压缩成压缩包下载,下载也是能正常下载就是会抛出这个错误 虽然说这个错误不影响下载功能,搞不好就因为这个错误某天系统崩溃,那时候就不是这么好玩了,于是我在百度上疯狂查找 有的说是流没有关,要在finally 里面把流关了 关了之后,满怀期待的重新运行,然 ......
SQL auto close - Keep it turned off
SQL auto close - Keep it turned off 04 June,2013 by Tom Collins Should the sql auto close database option be set to True or False? SQL Server Books On ......
jumpserver连接ecs实例报错:UNREACHABLE! => {"changed": false, "msg": "Failed to connect to the host via ssh: ssh_exchange_identification: Connection closed by remote host", "unreachable": true
报错分析思路: 1.是ssh密钥设置有没有对接 2.防火墙拦截问题 3.用户设置问题 4.sshd配置问题 问题解决: 无法与221.229.216.39端口35846进行协商:找不到匹配的主机密钥类型。他们提供的是:ssh-rsa、ssh-dss [preauth] 在sshd配置中加上ssh-r ......
delphi 窗体设计器选项(显示非可视组件、自动创建窗体)
窗体设计器选项(显示非可视组件、自动创建窗体) 选项介绍 窗体设计器的首选项。 Tools > Options > User Interface > Form Designer Grid options Display grid 在设计器上显示点网格点,以帮助对齐控件。 Use designer g ......
服务器出现大量TIME_WAIT 、CLOSE_WAIT状态的原因有哪些
一、服务器出现大量CLOSE_WAIT 状态的原因CLOSE_WAIT 状态,它是TCP四次挥手的第二次挥手被动关闭方的状态。 当服务端出现大量 CLOSE_WAIT 状态的连接的时候,说明服务端的程序没有调用 close 函数关闭连接。 二、服务器出现大量TIME_WAIT 状态的原因TIME_W ......
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 ......