Delphi 演示使用演示Brush对象的各种风格

Delphi 应用程序背景与桌面融合在一起，运行后，显示windows 桌面上的内容，显示壁纸，拖动窗口移动，桌面背景并不移动，好像是一个桌面相框一样，实现代码： 　　for i:=0 to ControlCount-1 do 　　if Controls[i] is TGraphicControl then 　　begin 　　 //使TLabel组件不透明显示 　　 Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0); 　　end;

Delphi 主窗体和子窗体显示示例，这类功能在平时的delphi编程中也是十分常见的，我们需要在主窗口中添加一个按钮，点击后弹出一个子窗口，对窗口布局来说是一种扩展。本示例简单，适合初学者学习参考。

Delphi 函数【Frame3D】的应用，该函数用于在画布上绘制一个3维框图： 　　implementation 　　{$R *.dfm} 　　procedure TFrmFrame3D.FormCreate(Sender: TObject); 　　begin 　　 Bc:=Rect(80,50,100,200); 　　end; 　　procedure TFrmFrame3D.FormPaint(Sender: TObject); 　　begin 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end; 　　procedure TFrmFrame3D.Button1Click(Sender: TObject); 　　begin 　　 Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text)); 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end;

Delphi 限制窗口最大化显示，当用户单击最大化按钮后，窗口稍微变大了一点，但并没有最大化，有时候，我们需要限制，不让窗口最大化，在编写实现此功能时，定义了WMGetMinMaxInfo，以下代码在函数中定义，用户操作按钮，激活函数： 　　with Message.MinMaxInfo^ do 　　begin 　　ptMaxSize.X := 400; //最大化时宽度 　　ptMaxSize.Y := 300; //最大化时高度 　　ptMaxPosition.X := 120; //最大化时左上角横坐标 　　ptMaxPosition.Y := 120; //最大化时左上角纵坐标 　　end; 　　Message.Result := 0; //通知Windows改变了minmaxinfo

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

Delphi SQLSERVER停车场收费管理系统，本系统涉及有多个硬件，运行后需要初始化硬件，读取硬件的配置数据，包括控制器。需要联网读取数据，比较综合的一套系统。可对挡车器、停车场照明系统进行管理，可财务报帐、年终结算等功能，主窗口启动时，先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效，设置照明灯自动开关时间，向数据库中写入记录，控制硬件打开挡车器，开始事务：fee_station-结帐次数加1，维护费用AMaintain=0 ,start_fee增加。。。

用Delphi播放AVI文件，AVI是一种视频格式，其实在Windows系统中，有很多的AVI小视频，用于实现Windows窗口中的小动画效果，在很多时候，我们可以借助播放AVI视频来实现窗体上的一些动画效果，比如Loading进度条、Office助手等。

Delphi 多帧动画播放，Delphi将多幅连续的BMP图像显示在一起，形成了动画的效果，类似于GIF的类型动画。每一张图片都是一帧，将帧快速的连起来，就形成了动画效果。

Delphi 使用Canvas美化列表项，当用户鼠标单击ListBox列表项时，该列表项高亮显示，改变背景色，文字居中对齐，如图所示。 　　主要是使用了Delphi中的Canvas.FrameRect对其进行美化，具体代码有兴趣可参考： 　　Canvas.FrameRect(Clientrect); 　　if odSelected in State then 　　begin 　　 Canvas.Brush.Color:=clRed; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15); 　　 setBkMode(Canvas.Handle,TRANSPARENT ); 　　 Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]); 　　end 　　else 　　begin 　　 Canvas.Brush.Color:=clSkyBlue; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15); 　　 Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]); 　　end;

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