用Delphi生成图片水平交错的动态显示效果

Delphi 通过时间服务器更新时间，包括了两个功能：1、获取服务器时间，2、更新本机时间。通过时间服务器，可一键自动更新日期时间，不过本实例连接的服务器已经失效了，程序不能连接，会假死，测试时候要注意。

Delphi 当鼠标和键盘在一定时间没有动作时关闭程序，这是一个智能化程序，类似于屏保，当一定时间没有操作时，会关闭软件，运行的技术也不很高深，有兴趣的可下载源代码研究学习。

Delphi 获取两个子字符串之间的字符个数，也就是这个字符串由A/B/C三个字符组成，本例子是求A/C中间的所有字符串的个数，空格同样也包括在内。定义两个函数即可实现本功能： 　　Function TForm1.Strcount( s, s1, s2 : string ): integer; 　　var 　　 i,j,slen : integer; 　　begin 　　 i := pos( s1, s ); 　　 j := pos( s2, s ); 　　 slen := Length(s1); 　　 if j >= i then 　　 Result := j - i - slen 　　 else 　　 Result := 0; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 n : integer; 　　begin 　　 n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text); 　　 showmessage(IntToStr(n)); 　　end;

这是一个Delphi利用自定义消息实现的进程内部通讯的例子，附上了完整的源码，运行的效果如图所示。 　　本程序作者：王毅 , 陈立亮 , 刘蓉，在Windows2000环境下用Delphi6.0调试通过。 　　本例子中主控程序采用FindWindow()函数找寻底层工作程序，从而实现通讯。底层工作程序在调试时请先生成可执行文件，然后关闭Delphi编辑器，运行可执行文件进行调试。如果不关闭Delphi编辑器，底层工作程序窗口在处于最小化时将无法正常工作，因为FindWindow()返回的是Delphi编辑器中该窗口的句柄。

轻型网络聊天Delphi程序-源码，类似聊天室， 很简单，这是个多年前的网络编程例子，聊天过程中显示对方的IP，和当前好友姓名，还支持删除聊天记录。用户注册时，可对注册信息进行初始验证，比如用户名是否存在、姓名和IP地址不能空等，有一些技巧对Delphi打基础有帮助。

一个基础的Delphi 文件目录操作示例，这里是拷贝指定的文件夹目录，一是了解复制文件的原理，二是熟悉Delphi中的目录操作技巧。

Delphi 隐藏或显示鼠标指针，在编译后运行本程序生成的Exe程序，在窗口中单击鼠标左键，鼠标会消失，被隐藏了，再次单击后鼠标重现，很好的演示了在Delphi中如何显示或隐藏鼠标的操作。

Delphi 7在数据库中存取图像，这个示例代码较早，面向的图像格式为BMP，JPG、GIF之类的图片格式未做测试，或许也可以。示例中将4张图片保存到数据库中，然后程序将从数据库中输出这些图片，通过程序的操作，你只需选择对应的图片，即可从数据库中读取出对应的图片。

Delphi 实现的窗体下拉动画效果，以下拉动画的方式显示一个窗口，关闭时同样有动画效果，只不过是上拉效果，让窗体变生成了，传统的窗口打开方式的确会让人觉得不新奇了，关于下拉和上拉，关键代码先帖上来，完整实例请下载本源码： 　　begin 　　 AnimateWindow(Self.Handle, 250, AW_VER_NEGATIVE or AW_HIDE); 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　begin 　　 AnimateWindow(Self.Handle, 250, AW_VER_POSITIVE); 　　end;

Delphi 打印图形，把图片打印出来，通过这个例子，你可以学习到： 　　 strect:Trect;//定义打印输出矩形框的大小 　　 temhi,temwd:integer; 　　begin 　　 if DIGPrint.execute then 　　 begin 　　 temhi:=imgpic.picture.height; 　　 temwd:=imgpic.picture.width; 　　 while (temhi = printer.pageheight div 2)and 　　 //将图形放大到打印页面的1/2大小 　　 (temwd = printer.pagewidth div 2) do 　　 begin 　　 temhi:=temhi+temhi; 　　 temwd:=temwd+temwd; 　　 end; 　　 with strect do //定义图形在页面上的中心位置输出 　　 begin 　　 left := (printer.pagewidth -temwd) div 2; 　　 top := (printer.pageheight-temhi) div 2; 　　 right := left+temwd; 　　 bottom := top+temhi; 　　 end; 　　 with printer do 　　 begin 　　 begindoc; 　　 canvas.stretchdraw(strect,imgpic.picture.graphic); 　　 enddoc; 　　 end; 　　 end;