XPMenu窗体控件Delphi版，在Delphi窗体中实现类似Windows XP风格的菜单专属控件，用起来十分方便，而且界面效果很棒，菜单漂亮，相信很多人会知道XPMenu这个控件吧。

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;

Delphi仿QQ窗口自动定位或隐藏（磁性吸附）功能，当鼠标拖动窗口至屏幕边缘或主窗体附近时，窗口会自动靠近主窗口，有的是自动吸附在主窗口上，好像带有磁性一样，这种窗口目前被应用到了很多视频播放器上面，比如播放列表可从主窗口脱离，然后拖近主窗口时，会自动吸在主窗口上。部分主程序代码： 　　当 top 距屏幕上侧 20 像素时,自动隐藏 　　 if frmMain.Top Screen.Width) then 　　 frmMain.Left:= Screen.Width - frmMain.Width; 　　 end 　　 // 当 left 距屏幕下侧 20 像素时,自动隐藏 　　 else if frmMain.Left frmMain.Width - Screen.Width >= -20 then 　　 //将frmMain向右移，在屏幕右方露出4像素

Delphi Treeview树形菜单视图源码，通过数据库读取到资料，然后绑定显示到TreeView中，通过多组数据的比较，可以看出不同方式之间速度的差异，一般情况下我们都是在使用时才打开树状菜单，才开始加载数据。同时这个树状菜单也是挺实用的一种窗体菜单。

一组漂亮的圆角按钮附源代码，编译环境VS2005，可以编译通过，看着挺舒服，可以为你的窗体增添一些灵动，用到你的软件中肯定会增色不少，希望VC的朋友能够喜欢。

Delphi实现TipTimer与Tips循环的右下角Tips提示，运行程序后即在右下角弹出一提示窗口，严格来说不是弹出，而是滑出来，由下到上滑出，带关闭功能。同时本窗口有两种生成方法：一是显示TipTimer法，二是显示Tips循环法，两种方法有不同的表现，这个就根据自己而定了，对两种方法感兴趣的朋友，也可好好看看代码啦。

测试Delphi的批量打印功能，这个批量打印据说用着很顺手，可批量打印文件，同时你也可研究下，Delphi开发环境下，如何实现批量打印功能。相关代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i:Integer; 　　begin 　　 for i:=0 to ShellListView1.Items.Count-1 do 　　 begin 　　 ShellExecute(handle, 'print', PChar(ShellListView1.Folders[i].PathName), 0, 0, 1) 　　 end; 　　end;

奇特的VC 透明窗体，利用了BMP图像，BMP可显示的去掉背景的文字，然后将这个BMP位图应用到窗体中，就形成了透明窗体，或许对你来说有点太简单了。希望对透明窗体制作不太懂的编程朋友参考一下。

Delphi机械设计之带传动设计(Mechanism Belt Design)源代码，V带传动辅助设计程序，程序功能：可以选择带型（普通V带、基准宽度制窄V带、有效宽度制窄V带或联组窄V带）、确定载荷情况（传动功率，小带轮转速，传动比）、确定工作情况系数（频率重启、正反转、工作条件恶劣）、确定轮直径相关参数设定、V带型号当前参数显示以及详细的参数显示等。

Delphi实现QQ强制发消息，这是个很早的程序了 ，不知能不有适用现在的QQ版本，所说当时很好用，和群发不太一样，本程序可实现强制对某人发送消息，绕开好友。