Delphi 使同类的组件进行同样的操作

Delphi渐变圆形的实现方法，RGB色环空心绘制演示源码： 　　oBmp := TBitmap.Create; //为了代码整齐就不写try了 　　oBmp.PixelFormat := ABitmap.PixelFormat; 　　oBmp.Width := ABitmap.Width; 　　oBmp.Height := ABitmap.Height; 　　BitBlt(oBmp.Canvas.Handle, 0, 0, oBmp.Width, oBmp.Height, ABitmap.Canvas.Handle, 80, 80, SRCCOPY); //要拷贝的位图 　　oRgn := CreateEllipticRgn(0, 0, 100, 100); //创建圆形区域 　　SelectClipRgn(ABitmap.Canvas.Handle, oRgn); //选择剪切区域 　　ABitmap.Canvas.Draw(0, 0, oBmp); //位图位于区域内的部分加载

Delphi在Windows7 中调用系统的日期时间设置窗口，在Delphi程序中，调用Windows中的指定窗口，本例是介绍在Windows7环境下调用系统的日期时间设置窗口，即控制面板中的日期时间设置面板，在Windows XP中同样适用，win8或win10下未做测试。

Delphi 使播放的Flash随窗口大小改变，也就是让Flash播放的窗口内容随着父窗口的大小而自动适应，把窗口拉大时，Flash画面也会跟着变大，让内容适应窗口大小的变化。

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

Delphi 演示如何播放GIF动画，其实就是在窗口中显示GIF图像，这是一种连续显示类似于动画效果的图像格式，在窗体上只要可以正常显示这种文件，就能实现播放功能，如示例截图所示的效果。

Delphi 使用API函数拔号，拨号程序，基于api的方法实现，有兴趣下载源码参考一番。

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

Delphi 单击StringGrid列进行排序，StringGrid行的任意列单击，就会重新排序一次，排序规则可以自己定义，这种排序功能可有效提升StringGrid显示数据的易用性，增强其功能，提升用户体验，本例子源代码相当简单，对学习者也有很好的帮助作用。参见以下代码： 　　begin 　　 if Button = mbRight then Exit; 　　 TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); 　　 if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; 　　 StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); 　　 if vOldCol = vCol then 　　 vOldCol := - vOldCol 　　 else 　　 vOldCol := vCol; 　　end;

Delphi 键盘钩子 封锁 windows 热键，封锁范围，可参见以下代码： 　　 keycost := LPKBDLLHOOKSTRUCT(lParam); 　　 if (keycost.vkCode=91) then//封锁win键 　　 exit; 　　 if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then 　　 exit; //封锁 ALT+TAB 　　 if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+F4 　　 if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+ESC 　　 if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)

这是一个Delphi利用自定义消息实现的进程内部通讯的例子，附上了完整的源码，运行的效果如图所示。 　　本程序作者：王毅 , 陈立亮 , 刘蓉，在Windows2000环境下用Delphi6.0调试通过。 　　本例子中主控程序采用FindWindow()函数找寻底层工作程序，从而实现通讯。底层工作程序在调试时请先生成可执行文件，然后关闭Delphi编辑器，运行可执行文件进行调试。如果不关闭Delphi编辑器，底层工作程序窗口在处于最小化时将无法正常工作，因为FindWindow()返回的是Delphi编辑器中该窗口的句柄。