在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 ...
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 TFo ...
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, ExtCtrls, StdCtrls; 8 9 t... ...
if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end; if MessageDlg('Welcome t ...
GetDeviceCaps 函数功能：该函数检索指定设备的设备指定信息。函数原型：int GetDeviceCaps(HDC hdc, int nlndex)；参数说明： 1、hdc：设备上下文环境的句柄。 2、nIndex：指定返回项，该参数取下列一值： DRIVERVERSION：设备驱动程序版 ...
