Delphi实现TdxDBTreeView节点全部展开或收拢

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

Delphi 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。

Delphi7.0实现超级连接效果，在窗体上显示超级链接，这个似乎比较简单了，在网页上这是基本的功能，不过如何把一个超链接显示在窗口中，和网页上有些区别，通过这个例子你将学会如何在窗体上实现链接的显示，以及多种链接状态的自定义功能。

Delphi 获取并显示当前Windows时间的例子，这个例子比较简单了，程序就完成一项功能，打开窗口后，点击按钮，即可获取当前的系统时间，并显示在窗体上，如效果图所示。

Delphi7 获取文件的修改时间，这是一个文件操作实例源代码，获取到文件被修改的时间，代码简单，适合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 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。 　　implementation 　　{$R *.dfm} 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 Clipboard().Assign(Image1.Picture.Bitmap); 　　end; 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if Clipboard().HasFormat(CF_BITMAP) then 　　 Image2.Picture.Bitmap.Assign(Clipboard()); 　　end; 　　procedure TForm1.BitBtn3Click(Sender: TObject); 　　begin 　　 Image2.picture := nil; 　　end; 　　end.

Delphi 云台镜头控制系统，用于摄像头监控系统中的云台控制程序，早几年写的，可能现在适用的硬件已经过时了，不过对于编写开发Delphi程序来说，源代码部分还是很有参考价值的。 　　本套云台控制系统运行的最终界面效果如示例图所示，界面友好，功能实用。 　　通过这套云台控制程序，你可控制摄像头光圈大孝焦距改变、转动摄像头、打开射灯等功能。

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

Delphi getTime 获取当前日期时间，用的是DateTimeToStr，运行本窗口后，自动获取当前电脑上的时间，显示在窗体指定的Lable标签中，这是核心的源代码： 　　procedure TForm1.Timer1Timer(Sender: TObject); 　　begin 　　 Label1.Caption := DateTimeToStr(now()); 　　end;