Delphi 7.0 使用Quotedstr函数返回字符串的引证串

Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段： 　　begin 　　Edit1.Text := inttostr(periodicity); 　　end;

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

又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。 　　高手可在此基础上开发完善出功能更强大的图书管理系统。 　　本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。

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

Delphi实现动态的窗口标题栏文字，让标题栏文字滚动，有以下动态变化形式：标题左循环，标题左右移动，停靠右端，设置移动时间间隔，每隔多少毫秒移动一个字等。可以在标题上设置一些醒目的内容，再使用本效果，吸引使用者的注意，是一种很不错的提醒方式。

Delphi 使同类的组件进行同样的操作的一个实例，类似于将WEB表单统一清空的功能，点击按钮后，所有文本框组件的内容被清空，作用在相同的组件实例上，代码： 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 Close; 　　end; 　　 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 ClearText : Integer; 　　begin 　　 For ClearText := 0 to Form1.ComponentCount -1 do 　　 begin 　　 //判断如果窗体中包含文本框组件，则将所有文本框组件的内容清空 　　 if Form1.Components[ClearText] is TEdit then 　　 begin 　　 TEdit(Components[ClearText]).Clear; 　　 end; 　　 end; 　　end;

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

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

Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。