//Not直接实现十六进制取反var I, J : word; begin I := $96E5; J := Not I; ShowMessage(Format('%x',[J])); end; ...
API函数 函数来源:FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll" constant long SB_HORZ = 0constant long SB_VERT = 1cons ...
Delphi Tips "函数篇" "StrToDate()" "语法篇" 函数篇 StrToDate() function StrToDate(const S: string): TDateTime; function StrToDate(const S: string; const Format ...
1。使最小化按钮变灰:setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_minimizebox );2。使最大化按钮变灰:setwindowlong(handle,gwl_style,getwindow ...
在OnShow加入弹出式窗口事件: procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); end; 关掉窗口滑动事件在OnClose加入: proce ...
delphi获取目录下所有文件名 https://www.cnblogs.com/zhangzhifeng/p/5746026.html delphi 控件背景透明代码 https://www.cnblogs.com/blogpro/p/11339119.html Delphi控件的透明与不透明(要 ...
分类:
其他好文 时间:
2019-10-11 00:42:09
阅读次数:
72
url protocol 让浏览器运行本地的EXE程序。例如:点击浏览器的一个下载链接,就会打开本地的迅雷。 1)注册表注册 2)编辑HTML 3)DELPHI程序 ...
分类:
Web程序 时间:
2019-10-10 10:44:29
阅读次数:
98
DELPHI控件升级 1)DELPHI里面卸载旧版控件; 2)WINDOWS里面卸载旧版控件; 3)删除旧版控件所在安装文件夹; 4)删除旧版的DCU,DCP,BPL文件; 5)安装新版控件; 6)程序换用新版控件的BPL文件; 7)用新版控件,DELPHI编译源码,报错? 解决方法可能有:http ...
//PDevMode = _devicemodeW;// _devicemodeW = record// dmDeviceName: array[0..CCHDEVICENAME - 1] of WideChar; {打印设备名称,唯一值}// dmSpecVersion: Word; {DevMo ...