Delphi 使播放的Flash随窗口大小改变

Delphi 将TColor换算成RGB，将一种颜色按照RGB颜色分量的形式分离出来，显示各自的颜色值，类似于一个拾色器的功能，你可从列表中选择任意一种颜色，然后查看获取到的颜色分量的值，如示例截图所示。

Delphi7 计算汉字的笔划有几划，输入一个汉字，本程序将计算出这个字有多少笔划，最后将结果将输出一个整数。

delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作， 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。

Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。

图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码： 　　newbmp:= TBitmap.Create; 　　newbmp.Width:=image1.Width; 　　newbmp.Height:=image1.Height; 　　bmpheight:=image1.Height; 　　bmpwidth:=image1.Width; 　　i:=0; 　　while i0 do 　　 begin 　　 newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j)); 　　 newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1)); 　　 j:=j-2; 　　 Application.ProcessMessages; 　　 end; 　　 form1.Canvas.Draw(0,0,newbmp); 　　 i:=i+2; 　　end; 　　newbmp.free;

Delphi 实现TDBGrid组件的斑马线显示，也就是TDBGrid的不同行显示不同的颜色，设置不同的背景色，让数据显示更清淅，看上去像斑马线，俗称隔行换色，本例子是结合数据库实现的，若要正常运行，请先附加Database数据库中的SQLSERVER文件，附加后在本示例中修改数据库连接字符串即可。

ANI动画鼠标，为自己的鼠标定制了一个带笑脸动画的光标，类似于定义鼠标的样式，定义动画光标将改变鼠标默认的样式，这样定义的动画光标格式为ANI文件。 　　屏幕截图抓不到动画光标，这是神马情况？

用Delphi生成图片水平交错的动态显示效果，是一个简单的图片动态显示效果，显示图片的时候，以水平左右交错的方式显示，可用于电子相册中，用于多张图片切换时的过渡动画效果。 　　本程序有个缺点：只支持BMP的图片，对JPG支持不好，其它格式也不行哦。

Delphi设计制作BMP图像的推拉动画效果，类似PPT幻灯片中的图像飞入效果，图片本应该在窗口上显示，但经过本代码的控制后，图像由底部向上部被推出来，其实就是由下到上的图片滑动效果，有兴趣的可下载源码参考主文件代码。 　　注：本程序好像只对BMP图像有效，其它格式如JPG/gif等图像暂且不支持该动画效果。

这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键： 　　procedure TForm1.Timer1Timer(Sender: TObject); 　　begin 　　 flashwindow(Handle,true); 　　end; 　　procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP); 　　begin 　　 if Message.Active then 　　 form1.Timer1.Enabled := false 　　 else 　　 form1.Timer1.Enabled := true; 　　end; 　　完整源码请下载。