Delphi 如何定义自已的鼠标单击事件

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

Delphi 文件拖放获取路径实例，用文件拖放的方式打开文件，本实例中虽然没有打开文件，但是获取到了文件路径，因此你就可以依此功能扩展成打开文件的功能。 　　实现方法使用了shellAPI,将Form1注册为文件拖放接收控件，说请请下载该源码。

Delphi 返回底数的任何次幂，本演示求2的4次幂、3的3次幂，求解过程如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit1.Text := FloatToStr(Power(2,4)); 　　 Edit2.Text := FloatToStr(Power(3,3)); 　　end; 　　以上代码定义在按钮事件中，当用户单击按钮后激活。

Delphi时间换算 换算秒数为时间格式，其实这种换算还是挺简单的吧，TimeToStr(I/86400);就可以算出。在运行的程序窗口中，输入任意秒数（必需输入数字）后，点击确定按钮，即可显示出时间格式的秒数了。具体的代码这里不帖了，需要的请下载完整源码吧，运行效果图如截图所示。

Delphi 模拟制作Windows XP风格界面的下拉页，实际上就是XP资源管理器界面的右侧窗口，鼠标单击会向下展开，再次单击会重新合拢，像一个折叠展开的面板那样，这种形式的窗口在Windows中已经早有应用，这只是一个用Delphi代码仿写的效果，希望对大家的Delphi界面设计有所帮助。

Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。 　　操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。

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

Delphi 模拟Windows “显示桌面”功能，对于功能就不再详述了，单击后，会看到Windows桌面，具体的实现方法也挺简单的，下面几行代码就搞定了： 　　if IsWindowVisible(h) then 　　 PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); 　　h := GetNextWindow(h, GW_HWNDNEXT); 　　完整的可编译源码请你下载源码包吧。

Delphi版智能图片放大器，用滑块改变放大倍率，向左滑，则放大位数变大，反之则变校打开程序后，鼠标在图片区域移动，即可把鼠标悬停区域的图像放大显示N倍，放大位数就是刚才提到的，滑块来调整的放大位数，部分代码可参考如下： 　　Const //定义放大的区域 　　 dSide=50;//区域大小 　　var 　　 sSide: Integer;//放大比例[1至100]，1为最大100为缩小 　　 msHide: Boolean; 　　 OldX,OldY,NewX,NewY: integer; 　　 Dest,Source: TRect; 　　{$R *.DFM} 　　Procedure TForm1.ImageFD(x,y,Side: Integer);//定义放大区域及放大过程 　　begin 　　 sSide:=30; //初始化放大比例 　　 msHide:=True; 　　 //Canvas.CopyMode:=cmSrcCopy; 　　 image1.Picture.Assign(image2.Picture); 　　end; 　　详细情况请下载源码后查看Unit1.pas文件。

Delphi获取电脑CPU硬件型号名称，这个可能不准确，我是64位 I5 3470 CPU，获取出来的是统称，不是太准确，可能是我系统的问题。不过这个代码是前几年书中的代码，现在的硬件发展快，也有可能是代码的问题，运行效果如下。 　　本获取CPU名称是根据注册表的方法获取的。