与大家分享一个Delphi 7自定义单元，完成自定义消息和自定义进度条的显示，效果可参见截图所示。在源代码中，showmessage是弹出消息提示窗口，showprogress是显示进度条，为了更好的看到效果，本示例显示进度条正在运行的状态，进度条和弹出消息框，作者：周劲羽 　　该单元提供以下几个过程用于显示动态提示窗体： 　　ShowProgress - 显示进度条窗体 　　HideProgress - 隐藏进度条窗体 　　UpdateProgress - 更新当前进度 　　UpdateProgressTitle - 更新窗体标题 　　使用方法：在需要显示提示窗口的单元中uses本单元，当需要显示提示信息时直接调用ShowXXXX过程即可。 　　注意事项：同一时间屏幕上只能显示一个进度窗体，窗体显示时其它所有窗体均不能使用，但显示该窗体的代码仍可以继续运行。 　　来看一下参数如何定义： 　　procedure ShowProgress(const Title: string; AMax: Integer = 100; vIsShowProgress: Boolean = false); 　　{* 显示进度条窗体，参数为窗体标题以及最大值，默认 100（百分比形式），可自定义成其他值} 　　procedure HideProgress; 　　{* 关闭进度条窗体} 　　procedure UpdateProgress(Value: Integer); 　　{* 更新当前进度，参数为进度值：当 Max 为 100 时可接受范围为 0..100，此时 Value 代表百分比} 　　procedure UpdateProgressTitle(const Title: string); 　　{* 更新进度条窗体标题，参数为标题} 　　procedure UpdateProgressMax(Value: Integer); 　　{* 更新进度条最大值，参数为新的最大值} 　　implementation 　　{$R *.DFM} 　　var 　　 ProgressForm: TProgressForm = nil; // 进度条窗体实例 　　 FormList: Pointer; // 被禁用的窗体列表指针 　　详细的单元使用方法，请下载查看源码中的代码文件。

Delphi 制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。 　　ShadowWidth:integer; //用于确定阴影的宽度或高度 　　RightShadow:TForm; //主窗口的右边产生一个阴影窗口 　　BottomShadow:TForm; //主窗口的下部产生一个阴影窗口 　　procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;

Delphi 7 获取窗口文本的例子，只要是当前窗口中的内容，都可以获取到，可能会比较乱，获取的过程被封装在按钮事件中，当用户点击后，执行事件中规定的命令： 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　var 　　 H_window:HWND; 　　 Text:array[0..255] of char; 　　begin 　　 H_window:=GetWindow(Handle,GW_HWNDFIRST); 　　 While H_window<>0 do 　　 begin 　　 if GETWindowText(H_window,@text,255)>0 then 　　 memo1.Lines.Add(StrPas(@Text)); 　　 H_window:=GetWindow(H_Window,GW_HWNDNEXT); 　　 end; 　　end;

Delphi压缩解压控件 VCLZip v3.0，在Delphi中实现快速解压文件、压缩文件时候所用的组件，自带有示例，3.0版本，有些早了，不过比较稳定了。

Delphi代码编写SqlServer数据库备份还原工具，可直接还原sql server 的 mdf ldf 文件，直接还原备份文件。

Delphi为Form增加一个边框，这个边框是镶嵌在窗体固有边框的外侧，可自定义任意一种颜色，比如你可在此基础上实现窗体边框闪烁、多彩窗体等效果。看看了实例的代码，貌似很容易就可实现，最终效果如演示截图所示。

Delphi树形菜单类以及例子，结合数据库生成Treeview树控菜单视图，你可了解下如何按照节点在数据库中的编号查找节点、如何查找节点在数据库中的数据、填充节点等。这个类通过数据库中的数据自动添加到Treeview控件中，不过数据控件用的是ADO组件，另外数据库中存放Treeview节点数据表的结构位：ID:integer;PID:Integer;Caption:string;字段名成可以不同，但是类型必须相同！ 　　公用单元：TreeFillThrd.pas;TreeUtils.pas

Delphi 颜色渐变的进度条，类似于Windows的进度条样式，实现了Delphi中的颜色渐变色效果。

Delphi实现窗体元素拖动改变大小的实例，也就是可以把窗体中的元素控件按照一定需求拉大或缩小，在本程序实现的窗口中单击鼠标就可以动态添加一个按钮元素，并在按钮四周显示拖放控制线，拖动控制线就可以改变元素大小，就像在Delphi中编辑控制的功能。

Delphi打字练习软件-比赛专用版，采用INi配置文件，打字练习的文字调用自外部的TXT文件，更换文字很方便，曾做为打字比赛的专用软件，功能还有二次开发的空间，先这样分享给大家吧。使用说明： 　　1、设定比赛时间及姓名后按开始键开始比赛 　　2、比赛过程不参暂停及时间字号设定 　　3、可用任何输入法输入汉字 　　4、由电脑自动记分计时