Delphi 使DBGrid支持鼠标滚轮

Delphi 设定Windows屏幕分辨率的方法和示例代码： 　　function TForm1.DynamicResolution(X, Y: word): BOOL; 　　var 　　 lpDevMode: TDeviceMode; 　　begin 　　 Result := EnumDisplaySettings(nil, 0, lpDevMode); 　　 if Result then 　　 begin 　　 lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; 　　 lpDevMode.dmPelsWidth := X; 　　 lpDevMode.dmPelsHeight := Y; 　　 Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; 　　 end

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;

Delphi 修改网络设置DNS地址，这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息，由用户指定待修改的新DNS地址，输入地址框，单击“修改”按钮即可完成修改。因此通过本程序，你可以了解许多注册表方面的操作技巧，以及网络设置相关知识。

一个Delphi编写的相当不错的TreeView树控菜单，类似于Windows资源管理器中的树状菜单。 　　ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口 　　Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表 　　HasExpanded: Boolean; // 节点是否展开 　　通过这个树形菜单制作实例，你可以学习到几个对项目标识符进行操作的函数，同时还有将二进制表示的项目标识符列表转换成有可识的项目名，获得每个文件夹在系统中的图标，获得系统的图标列表，生成文件夹管理树等。

Delphi7 获取文件的修改时间，这是一个文件操作实例源代码，获取到文件被修改的时间，代码简单，适合Delphi新手学习参考。

Delphi 判断文件是否被占用，这个在删除的时候，可以添加上此功能，因为文件占用的话，用户删除时会出错，用本代码可以先判断一下文件是否被占用，用弹窗方式告诉用户是否可以删除，如果没有被占用，则程序进行下一步处理。下面简要了解一下判断的具体代码（局部）： 　　on E:EInOutError do 　　begin 　　 if e.ErrorCode=32 then//文件正在被使用 　　 begin 　　 result:=true; 　　 exit; 　　 end; 　　end; 　　更完整的可编译源码，请下载。

Delphi 演示使用演示Brush笔刷对象后生成的各种风格，一种演示了7种笔刷效果，定义了一个存储绘图风格的7维数组，然后使用For循环对绘图风格数组赋值，然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。

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

Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。

delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作， 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。