-
Delphi 7.0 使用Quotedstr函数返回字符串的引证串
Delphi 7.0 使用Quotedstr函数返回字符串的引证串，为了演示方便，本程序于SQLSERVER数据库结合，在运行此程序之前，需要附加数据库。具体附加数据库的方法请参见说明书。
- 2023-03-07 09:55:03下载
- 积分：1
-
在输入时按回车移动光标到一下文本框-Delphi示例
Delphi实现回车移动焦点的功能，当用户在输入时按回车键，将移动光标到一下文本框，这个功能我觉得可很好的提升软件的操作体验，为实现快捷输入近了一步。具体代码请参考如下：
begin
if Key = 13 then
begin
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //弹起
end;
end;
- 2022-08-21 20:36:32下载
- 积分：1
-
Delphi 计算1到10之间的奇数和【源码】
Delphi 推荐到奇数，并计算1到10之间的奇数求和，这是个简单的数学问题，数学水平高，写出这种小程序并不难，趁机把代码帖出来吧：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
j:=0;
For i := 1 to 10 do
begin
if i mod 2 =0 then
Continue;
j := j+i;
Edit1.text := IntToStr(j);
end;
end;
- 2023-02-23 03:45:04下载
- 积分：1
-
Delphi 判断文件是否被占用
Delphi 判断文件是否被占用，这个在删除的时候，可以添加上此功能，因为文件占用的话，用户删除时会出错，用本代码可以先判断一下文件是否被占用，用弹窗方式告诉用户是否可以删除，如果没有被占用，则程序进行下一步处理。下面简要了解一下判断的具体代码（局部）：
on E:EInOutError do
begin
if e.ErrorCode=32 then//文件正在被使用
begin
result:=true;
exit;
end;
end;
更完整的可编译源码，请下载。
- 2023-09-02 10:00:03下载
- 积分：1
-
Delphi实现流程图绘制程序附有源码
Delphi实现流程图绘制程序附有源码，看上去很专业、很高大上的样子。用来绘制工业生产流程图、软件开发流程图等。功能上像绘图软件，功能比较强大，运行界面如下图所示。生成的流程图可编辑文件扩展名为pf，本软件将自动识别。
- 2022-05-25 01:00:17下载
- 积分：1
-
Delphi 将TColor换算成RGB
Delphi 将TColor换算成RGB，将一种颜色按照RGB颜色分量的形式分离出来，显示各自的颜色值，类似于一个拾色器的功能，你可从列表中选择任意一种颜色，然后查看获取到的颜色分量的值，如示例截图所示。
- 2023-07-28 04:55:03下载
- 积分：1
-
指纹开发源代码
中控指纹delphi开发实例，完成了指纹采集，数据库指纹模块保存和比对
(In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)
- 2022-10-15 02:05:03下载
- 积分：1
-
Delphi 在窗体上显示超级连接效果
Delphi7.0实现超级连接效果，在窗体上显示超级链接，这个似乎比较简单了，在网页上这是基本的功能，不过如何把一个超链接显示在窗口中，和网页上有些区别，通过这个例子你将学会如何在窗体上实现链接的显示，以及多种链接状态的自定义功能。
- 2023-03-23 16:40:03下载
- 积分：1
-
Delphi实现TdxDBTreeView节点全部展开或收拢
本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能，也就是大家熟悉的树形菜单节点的折叠或展开功能，在平时的使用中，树形节点是很常用的一个菜单功能，本例子的树形菜单节点功能读取自数据库，因此在测试前请连接好数据库。
//单击全部展开按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
dxDBTreeView1.FullExpand;
end;
//单击全部收拢按钮
procedure TForm1.Button2Click(Sender: TObject);
begin
dxDBTreeView1.FullCollapse;
end;
- 2022-01-26 05:17:01下载
- 积分：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
