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;

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

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

一个清新的Delphi软件界面源码，有按钮和背景贴图效果，在设计Delphi软件时可借鉴这个界面效果。

Delphi右下角消息提示窗口，类似QQ的迷你提示窗口，显示在屏幕的右下角，十分漂亮，程序分别以Tiptimer方法和Tip循环方法来实现，其效果基本一样。

Delphi编写的即时通信程序，类似QQ聊天，源码内包括了控件补盯配置方法说明和各个模块的代码等。 　　一个自我感觉很好的通信程序，它的特点： 　　1.数据包格式全部自己定义。 　　 所有的定义和通信核心类全部在COMM文件夹中。 　　2.能处理大量客户端同时通信的情况，客户和服务端共用相同的通信对象，并且可以实现互传。 　　3.通信细节全部封装在几个通用的类中，隐藏了交互通信的所有处理细节，如断包处理，超时重发等功能。 　　4.数据通信和数据具体应用完全分离，扩展性良好，本例中只做一个上传文件的例子，你可以在不用改动通信核心的情况下，可以实现远程控制所需的任何功能，并且不需要考虑通信细节。具体方法可以参考：CommSrvApps 单元的TSrvApp_File类，只需写一个新类即可: 　　 TSrvApp_File = class(TServerAppObject) 　　 public 　　 function ProcessData(ABuf: PChar; ASize: integer): integer; override; 　　 end; 　　 通过以上类配合通信核心类，实现了远程实时传送一个文件就像copy那么简单。 　　其它： 　　此程序是我自己开发的连锁超市方案中数据交换的应用实例，所以客户端和服务端的代码有点多，但多是与通信本身无关，所实现的功能是将本地Local文件夹与远程Remote文件夹的.rs文件互相进行传送。 　　程序配置方法： 　　1.本程序在Delphi6下编译通过，其它版本没有测试。 　　2.请先安装"控件补丁"中的控件包。 　　3.编译Client或Server时，请先设置Search Path指向comm 文件夹。

Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。 　　//淡入效果 　　//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE); 　　//从中心扩散 　　//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE); 　　//水平从左到右 　　//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//水平从右到左 　　//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE); 　　//垂直从上到下 　　//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE); 　　//垂直从下到上

“欢迎连接到简单TCP服务器”，这是本代码编译成功，运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器，客户端代码同样完整，指定主机IP、端口后，就可连接该服务器，客户端和服务端代码都要编译才能运行，先运行服务端并设置好，再启动客户端，然后进行消息发送和接收。