摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure Fo 阅读全文
posted @ 2023-05-13 14:12
lucken
阅读(30)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class 阅读全文
posted @ 2023-05-13 11:49
lucken
阅读(55)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文
posted @ 2023-05-13 11:49
lucken
阅读(35)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文
posted @ 2023-05-13 11:43
lucken
阅读(45)
评论(0)
推荐(0)
摘要：
AlphaBlend 是指定图像混合透明的函数, 在 Graphics、GraphUtil、RibbonStyleActnCtrls 单元用到. 下面的测试是把一张图片显示在窗体, 并可以调整透明度.、 unit Unit1; interface uses Windows, Messages, Sy 阅读全文
posted @ 2023-05-13 11:12
lucken
阅读(53)
评论(0)
推荐(0)
摘要：
BeginDeferWindowPos 和 DeferWindowPos、EndDeferWindowPos 是一组一起使用的函数, 可对一组窗口的位置、大小、Z 序等进行调整, 在 ExtCtrls 单元有用到.下面先用常规方法实现对 Panel1 中的一组 Button 进行调整, 然后再用上面 阅读全文
posted @ 2023-05-13 11:09
lucken
阅读(125)
评论(0)
推荐(0)
摘要：
单元内主要就是 TZipFile 类, 最方便使用的是它的类方法: TZipFile.ExtractZipFile() //解压 Zip 文件到指定文件夹 TZipFile.IsValid() //判断指定文件是否是有效的 Zip 文件 TZipFile.ZipDirectoryContents() 阅读全文
posted @ 2023-05-13 10:47
lucken
阅读(140)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文
posted @ 2023-05-13 09:01
lucken
阅读(128)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文
posted @ 2023-05-13 08:57
lucken
阅读(67)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Me 阅读全文
posted @ 2023-05-13 08:54
lucken
阅读(43)
评论(0)
推荐(0)
浙公网安备 33010602011771号