《Delphi程序设计》_说明.docVIP

PAGE

PAGE5

实例1设置透明窗体

实例62窗体始终在最前面

项目说明

界面是程序的面孔，很多应用程序的界面给用户留下了深刻的印象，如迅雷的下载窗口，既透明又总是在最前面。本实例说明如何利用Delphi制作一个Windows2000下的透明窗体。值得注意的是，本程序在Windows98环境下不能够得到透明效果，因为AlphaBlend属性和AlphaBlendValue属性只支持Windows2000及以后版本的操作系统。通过这个实例，读者不但可以体验到Delphi的强大功能，还可以为自己的应用程序界面加上看起来很神奇的透明效果。

项目分析

1、窗体中添加的组件

选择组件模板的【Additional】选项卡，选择一个Image组件添加到窗体中，用来显示一幅图片。

选择组件模板的【Win32】选项卡，选择一个TrackBar组件添加到窗体中，用来调节窗体的透明度。

2、项目事件

在程序运行过程中用户可以通过调节TrackBar组件上滑块的位置来设置窗体的透明程度。这就要由TrackBar组件的OnChange事件来完成：

procedureTForm1.TrackBar1Change(Sender:TObject);

begin

form1.AlphaBlendValue:=TrackBar1.Max-TrackBar1.Position;

end;

由上面