与大家分享一个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; // 被禁用的窗体列表指针 　　详细的单元使用方法，请下载查看源码中的代码文件。

VB界面换肤模块源码，实时切换窗体皮肤，而不用重新关闭窗体，只需点击一下按钮就可以换肤了。技术用法：在需要更改按钮外观的窗体的Load事件中加入 Attach Me.hwnd 更改按钮外观，Unload事件中加入 Detach Me.hwnd 还原按钮外观。把本源码分享给大家 ，希望大家喜欢。

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

摘要:VC/C++源码,界面编程,渐变色,编辑框 　　填充渐变色的VC++窗体编辑框源代码，漂亮的VC编辑框，截图如上所示，而且当输入字符的时候，文字还带有阴影效果，像是立体文字，一定会给你的窗体增色不少，源代码实现原理分享给大家。

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;

改变文本框字体的大小和样式，VB窗体实例，调用Windows的字体面板，通过此面板你可对布局在窗体上的文本框控制字体进行控制，改变字体的样式、大孝删除线、下划线、字符集、字型等。运行的效果如上图所示。

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

VB窗体内鼠标到达边缘触发图片、背景的移动，用你的鼠标分别向上、向下、向左、向右移动，观看效果！可发现图片会作出相应的移动，这种效果目前在电子地图中使用广泛，我觉得还是挺实用小技巧，好奇朋友下载研究一番吧。

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

自制的超漂亮的VBTree树控件源码，快速即可实现一个树形菜单，或者说是折叠菜单，另外还有滚动条及CheckBox和漂亮按钮等窗体元素的美化实例等。