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

EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试

本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能，也就是大家熟悉的树形菜单节点的折叠或展开功能，在平时的使用中，树形节点是很常用的一个菜单功能，本例子的树形菜单节点功能读取自数据库，因此在测试前请连接好数据库。 　　//单击全部展开按钮 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 dxDBTreeView1.FullExpand; 　　end; 　　 //单击全部收拢按钮 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 dxDBTreeView1.FullCollapse; 　　end;

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;

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

Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示，其实在Window7环境下同样也可枚举到进程及页面内存信息，可以列举所有正在运行的进程，正在运行的所有进程，鼠标双击有进程的详细信息，可以得到某一进程的模块、页面等信息，以及内存映射的文件名。 　　如果列举进程出错，请确认是否安装了PSAPI.DLL。 　　本程序除了列举进程外，还可列举设备信息。运行效果请参见截图所示。

百叶窗效果的图像显示，这个效果我觉得大家不会陌生吧，在电视上、电脑上，这种切换图片显示的方式还是挺常见的，像百叶窗的样式，本效果重在演示图像的解析。

Delphi 制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。 　　ShadowWidth:integer; //用于确定阴影的宽度或高度 　　RightShadow:TForm; //主窗口的右边产生一个阴影窗口 　　BottomShadow:TForm; //主窗口的下部产生一个阴影窗口 　　procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;

Delphi 改变当前鼠标样式，这个样式比较个性了，把箭头状的鼠标指针替换成了一幅图像，还有动画效果。具体实现，请下载本源码一看究竟。本程序具备的功能是可以选择的，用户可选择改变鼠标的形状是否是当前窗口或系统，选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。

本源码演示Delphi如何用ESC键退出程序，为程序添加esc退出程序的功能，一般情况下，关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭，不过我们也可以为程序添加通过键盘按下ESC键来关闭程序，本源码就是演示了此种功能，当用户按下ESC时，窗口即关闭，程序退出。

关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 S:integer; 　　begin 　　 S:=2147483647; 　　 showmessage(inttoHex(s,8)); 　　 showmessage(inttoHex(s,10)); 　　 showmessage(inttoHex(s,16)); 　　 showmessage(inttoHex(s,32)); 　　end;