-
Delphi 实现组件立体阴影、投影效果
Delphi 为组件制作立体效果，实现组件的阴影、投影效果，这种阴影效果不是很细腻，不过大致也说得过去，必竟实现方法简单，原生Delphi方法实现，不依靠三方控件，最终效果请参见测试截图所示。
- 2022-07-03 03:09:14下载
- 积分：1
-
EI3.0(DELPHI源码)
EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试
- 2022-03-30 08:16:31下载
- 积分：1
-
Delphi实现窗体失去焦点时标题栏闪动特效
这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
flashwindow(Handle,true);
end;
procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP);
begin
if Message.Active then
form1.Timer1.Enabled := false
else
form1.Timer1.Enabled := true;
end;
完整源码请下载。
- 2022-07-08 18:47:20下载
- 积分：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 钩子函数创建鼠标操作的演示
Delphi 钩子函数创建鼠标操作的演示，作者：冉林仓，测试内容包括三个：DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。
安装与调试说明：
如果制作的演示程序工作不正常,请注意修改HKPROC.PAS，JOURNALPLAYBACKHOOKHANDLER函数,主要是修改返回的RESULT值.
记录的消息序列与屏幕窗口位置、分辨率有很大的关系,哪怕是窗口位置和大小仅仅偏一点,你的回放就不一定正常,请你在使用时要反复调试，以获得比较理想的效果。
- 2023-09-02 14:55:03下载
- 积分：1
-
Delphi数据库编程案例：教材管理系统源码
这是一款基于Delphi和Access数据库的编程案例：教材管理系统源码，经过修正完善后可作为学校的教材管理程序，功能模块主要有：系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。
- 2022-04-14 14:29:20下载
- 积分：1
-
Delphi 显示文件的播放进度
Delphi 显示文件的播放进度，使用了Timer实现对进度的计算和显示。
- 2022-05-28 13:11:17下载
- 积分：1
-
Delphi 监控剪贴板的文字内容
Delphi 监控剪贴板的文字内容，这个监控程序可以监控复制到剪切板的文字信息，图片暂时不能监控到，具体的监控实现如下：
NextformHwnd:HWND;//观察链中下一个窗口句柄
procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;
//处理WM_DRAWCLIPBOARD消息过程
{ Public declarations }
//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口
SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);
//查询剪贴板中特定格式的数据内容
if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then
begin
//处理剪贴板中内容
memo1.Lines.Clear;
memo1.Lines.Add(Clipboard.asText);
end;
- 2022-01-22 10:48:45下载
- 积分：1
-
Delphi 修改网络设置DNS地址
Delphi 修改网络设置DNS地址，这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息，由用户指定待修改的新DNS地址，输入地址框，单击“修改”按钮即可完成修改。因此通过本程序，你可以了解许多注册表方面的操作技巧，以及网络设置相关知识。
- 2022-02-14 09:59:16下载
- 积分：1
-
用Delphi生成图片水平交错的动态显示效果
用Delphi生成图片水平交错的动态显示效果，是一个简单的图片动态显示效果，显示图片的时候，以水平左右交错的方式显示，可用于电子相册中，用于多张图片切换时的过渡动画效果。
本程序有个缺点：只支持BMP的图片，对JPG支持不好，其它格式也不行哦。
- 2022-03-23 01:50:52下载
- 积分：1
