-
Delphi 应用程序背景与桌面融合在一起
Delphi 应用程序背景与桌面融合在一起，运行后，显示windows 桌面上的内容，显示壁纸，拖动窗口移动，桌面背景并不移动，好像是一个桌面相框一样，实现代码：
for i:=0 to ControlCount-1 do
if Controls[i] is TGraphicControl then
begin
//使TLabel组件不透明显示
Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);
end;
- 2022-02-02 23:31:59下载
- 积分：1
-
Delphi户籍管理系统，Access数据库版
Delphi户籍管理系统，Access数据库版，界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为：222222 。
在数据库编程方面，本系统更注重录入及查询，采用多重SQL语句查询，并结合查询可生成报表。
- 2022-04-18 17:44:59下载
- 积分：1
-
Delphi7 计算汉字的笔划
Delphi7 计算汉字的笔划有几划，输入一个汉字，本程序将计算出这个字有多少笔划，最后将结果将输出一个整数。
- 2022-12-25 04:20:03下载
- 积分：1
-
Delphi在窗口中单击左键弹出菜单
Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。
- 2023-09-08 18:20:03下载
- 积分：1
-
Delphi SQLSERVER 操作员权限设置程序
Delphi SQLSERVER 操作员权限设置程序，以销售、进货两个功能，来演示不同帐号所享有的不同操作权限，从用户管理模块中，你可以修改权限设置，测试前，请首先连接好SQLSERVER数据库。
你可以使用以下的测试帐户来感受权限控制功能：
普通用户
用户名：Power
密码： 111
高级用户
用户名：mr
密码： 111
- 2022-05-21 02:43:58下载
- 积分：1
-
Delphi7删除字符串指定字符（汉字）的例子
Delphi7删除字符串指定字符的例子，如图所示的运行效果，示例如下文字：“经过这几天在网上的淘金，多少也有些了解了，但是现在我发现就算将分区正确的话，分区所指向的目录区也许会有些问题。”，删除指定的文字为“在”，本例中将上述一段文字中所有的“在”全部删除，在代码部分，各个变量的定义有意思：
Strs, //文本字符串
Stre, //汉字字符串
St, //文本ASCII码
Se, //汉字ASCII码
L_St, //临时文本ASCII码
L_Se, //临时汉字ASCII码
Str_copy //保存文本
: String;
Ints, //文本总长度
Inte, //删除汉字长度
i, //文本循环
p, //汉字循环
ps, //文本指针变量
pe, //汉字指针变量
Int_zh, //找到时保存汉字位置
Int_ch //循环查找时的变量
- 2022-03-23 19:03:00下载
- 积分：1
-
Delphi 使DBGrid支持鼠标滚轮
Delphi 使DBGrid支持鼠标滚轮，测试前请确保程序已连接好数据库，否则会有很长一段时间反应，读取的数据会显示在DBGrid控件中，请在DBGrid组件中滚动鼠标滚轮，可将整个列表上下滚动，便于浏览数据，这个功能在一些软件中经常会遇到，具体编写思路请下载源码研究。
- 2022-04-12 01:26:52下载
- 积分：1
-
Delphi 创建独立的子窗体 脱离父窗口但可通过父窗口关闭
Delphi 创建多个独立的子窗体 脱离父窗口而显示，但是却可通过父窗口关闭打开的所有子窗口，就是通过主窗口内的关闭按钮，关闭独立于父窗口之外的子窗口，这个功能我感觉很实用吧，源代码中也包括了多个子窗口的代码，父子窗口之间是如何关联起来的呢，请参见这个源代码实例 。
- 2022-01-25 17:06:08下载
- 积分：1
-
Delphi Canvas.Brush为窗体绘制渐变背景
Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码：
for i:=0 to self.Width-1 do
begin
c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));
c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));
c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));
Canvas.Brush.Color:=RGB(c1,c2,c3);
//每次画矩形的画刷颜色
Dct:=Rect(i,0,i+1,self.Height);
//每次刷绘的矩形区域
Canvas.FillRect(Dct);
//填充颜色
end;
- 2022-05-24 21:26:59下载
- 积分：1
-
又一款基于数据库的Delphi图书管理系统
又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。
高手可在此基础上开发完善出功能更强大的图书管理系统。
本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。
- 2023-06-04 01:55:03下载
- 积分：1
