setstyle unigui delphi button
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 ......
uniGUI学习之表格和链接(76)
拖一个UniHTMLFrame1到界面上 <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8" /> <title>网页标题</title> <base target="_blank"/> </head> <body> <!-- ......
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 = ''): ......
十七、组件-基础组件-Button
Button 按钮组件，可快速创建不同样式的按钮。 方法1：Button(options?:{type?:ButtonType,stateEffect?:boolean}) 方法2：Button(label?:ResourceStr,options?:{type?:ButtonType,stateE ......
delphi cxgrid 过滤列表增加右键
首先弹出来的下拉过滤列表也是一个form 思路,在不改源代码的情况：hook,捕捉 WM_SHOWWINDOW 消息，通过源码得知窗口类名 为”TcxGridFilterPopup“ 再通过句柄转得到实例，同时在本单元type 一下新的 TcxGridFilterPopup， TcxGridPopu ......
uniGUI学习之禁用缓存(75)
引用了第三方js,css等文件，但是因为缓存的原因，修改后没有及时生效。方法一： 在ServerModule的OnHTTPCommand事件中，加入以下代码 AResponseInfo.CacheControl := 'max-age=0, no-cache, no-store, must-reva ......
uniGUI学习之自定义Hint(74)
默认Hint样式 procedure TMainForm.UniFormShow(Sender: TObject); var i: Integer; begin for i := 0 to Self.ControlCount - 1 do begin with TUniFormControl(Sel ......
element ui中同级button调用upload组件
代码 <el-upload ref="schoolLogo" class="avatar-uploader" action="https://jsonplaceholder.typicode.com/posts/" :show-file-list="false" :on-success="handl ......
Winform控件背景透明无边框（以button为例）
其实，只要通过设置button的属性，就可以实现button的背景色为透明： 1、将button的backcolor属性设置为Transparent，该属性在web选项的第一个； 2、将button的FlatStyle属性设置为Flat。 3、如果还想将button的边框线去掉，在button的Fl ......
CF1906B Button Pressing记录
CF1906B Button Pressing 题目链接：https://codeforces.com/problemset/problem/1906/B 题意简述 有 $n$ 盏灯，用一个 $0/1$ 序列代表关闭/打开的状态。若第 $i$ 盏灯处于打开的状态，允许对其执行如下的操作： 同时翻转第 ......
DELPHI模板编程
DELPHI模板编程 procedure TCRUD<T>.execsql(OnTableModel: TTableModel); //执行事务性SQL begin if req.Body = nil then Exit; var pool: TDBPool := GetDBPool(dbid); ......
unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】
uniTreeVviewc创建一个tree，显示患者姓名（PatientName）。因为需要用到患者ID（PatientID），所以使用help： TPatientTreeNode = class(TUniTreeNode) //strict private FPatientID: string; ......
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 ......
2.button_control_led
//注意：51单片机是低电平驱动的 #include<REGX52.H> //包含P2 #include<INTRINS.H> //包含延时函数的_nop_ void main() //1.按键按下点亮一个led，松手熄灭。 { while(1) { if(P3_1==0)//默认是高电平，P3_1 ......
unigui如何直接显示一个PDF文件【13】
这个问题有点搞笑。 点击之后，下载文件，然后就没有然后了。 1、对于常见的文档类型，浏览器默认支持，对于如abc扩展名的特殊类文档，点击后浏览器会没有动作，你需要配置一下MIME表。 在ServerModule的OnCreate属性中添加： MimeTable.AddMimeType("abc"," ......
delphi 提示 Access violation at address 014CA924 in module 'EBD.exe'. Read of address 0D1A0000排查
通过类似 Access violation at address 014CA924 in module 'EBD.exe'. Read of address 0D1A0000 提示查看代码出错的行。 1、开启map project -> options -> Linker -> Map file 选 ......
CSS按钮样式之button标签与input type=button的区别
原文链接：1、https://www.cnblogs.com/weihanli/p/5162828.html 2、https://www.cnblogs.com/smile6542/p/11968175.html 如果想要在页面上表示一个显示文本的按钮推荐input[type=”button”]方式 ......
去除微信小程序里面的button边框
去除微信小程序里面的button边框 方法一：通过button::after button::after{ border: none; } 方法二：给button按钮加上plain属性，属性值为true <button plain="true"></button> 然后设置样式就可以去除边框了 bu ......
解决el-button按钮点击后没有失去焦点
const toggleVulnStatus = (event) => { let target = event.target; if (target.nodeName == 'SPAN' || target.nodeName == 'I') { target = event.target.pare ......
delphi实现点击列头按隐藏列排序方法
场景：某字段应为数字但由于历史原因被定义为字符串，点击需按数字的要求进行排序实现原理：判断如果是点击某一列头则调用一次查询，通过传排序规则给后台，由后台将排好序的结果返回给前台实现办法：采用onclicktitle 方法 第一步，保存当前排序规则 sSortFieldName := gdQuery. ......
视频直播源码，去掉Button自带边框
视频直播源码，去掉Button自带边框 实现 html代码 <view><button class="contactBtn" open-type="contact" @contact="handleContact"session-from="sessionFrom">意见反馈</button></v ......
delphi 学习如何登陆网站下载文件
感谢我宅猫大哥的热心指导. 启动时等待验证码. 输入验证码后,等待处理数据 处理完成后,显示数据 实现原理:利用已有的账号和密码登录后产生的cookie,向服务器请求数据.返回的数据是JSON格式,后期需要自己整理. 注意,请在程序中使用同一个TnetHttpClient控件来完成.因为里面保存了c ......
Delphi模拟鼠标点击
1 var 2 FindW:HWND; 3 begin 4 findw:=FindWindow(nil,'欢迎使用百度网盘'); 5 sendmessage(FindW,messages.WM_LBUTTONDOWN ,0,$00250107); 6 sendmessage(FindW,messag ......