Delphi7利用鼠标绘制矩形焦点的源码

Delphi 改变当前鼠标样式，这个样式比较个性了，把箭头状的鼠标指针替换成了一幅图像，还有动画效果。具体实现，请下载本源码一看究竟。本程序具备的功能是可以选择的，用户可选择改变鼠标的形状是否是当前窗口或系统，选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。

delphi 获取网页源码

Windows 剪贴板高级编程-Delphi源码实例，其实也不是什么高级编程，挺基础的剪贴板应用。学习如何在Delphi环境下读取Windows剪贴板的内容。在编写一些系统辅助类的软件中，可使用到这些小技巧。以下代码：将剪贴板内容读取出来，在代码的执行放入一个按钮事件中： 　　procedure TForm1.Button2Click(Sender: TObject); 　　var 　　 DataRec: TDataRecord; 　　 Data: THandle; 　　 PData: Pointer; 　　begin 　　 Data := Clipboard.GetAsHandle(CF_CUSTOMFORMAT); 　　 if Data = 0 then Exit; 　　 PData := GlobalLock(Data); 　　 Move(PData^, DataRec, GlobalSize(Data)); 　　 GlobalUnlock(Data); 　　 with DataRec do 　　 ShowMessage(Name + #13#10 + Sex + #13#10 + Hobby); 　　end;

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

“欢迎连接到简单TCP服务器”，这是本代码编译成功，运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器，客户端代码同样完整，指定主机IP、端口后，就可连接该服务器，客户端和服务端代码都要编译才能运行，先运行服务端并设置好，再启动客户端，然后进行消息发送和接收。

Delphi 读取SQLSERVER数据库内容，并创建Excel表格文件，将内容导出到excel文件中，核心同样是基于createoleobject对象的excel.application方法实现，创建EXECEL对象 ,添加comobj单元，用循环加入记录，将数据表导入到Excel表中，正式开始EXECEL输出。

一个基础的Delphi 文件目录操作示例，这里是拷贝指定的文件夹目录，一是了解复制文件的原理，二是熟悉Delphi中的目录操作技巧。

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

Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。 　　self.ListView1.ViewStyle:=vsReport; 　　for i:=0 to Query1.FieldCount-1 do 　　begin 　　 TempColumn:=self.ListView1.Columns.Add; 　　 TempColumn.Caption:=Query1.Fields[i].FieldName; 　　end; 　　Query1.First; 　　while not Query1.Eof do 　　begin 　　 TempItem:=self.ListView1.Items.Add; 　　 TempItem.Caption:=Query1.Fields[0].AsString; 　　 for i:=1 to Query1.FieldCount-1 do 　　 begin 　　 TempItem.SubItems.Add(Query1.Fields[i].AsString); 　　 end; 　　 Query1.Next; 　　end;

Delphi演示如何将一张图片的颜色加深，类似于调整对比度，不过本效果不加入了渐变加深的动画效果，按住按钮图片一直变暗下去，要知空间，你可看下以下代码： 　　Bitmap:=image1.Picture.Bitmap; 　　image1.Height:= Bitmap.Height; 　　image1.Width:= Bitmap.Width; 　　for i:=0 to 255 do 　　begin 　　 sleep(10); 　　 for y:=0 to Bitmap.Height-1 do 　　 begin 　　 pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色 　　 for x:=0 to ((Bitmap.Width*3)-1) do 　　 //递减颜色值，不同的递减值可改变不同的速度 　　 if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1); 　　 end; 　　 Image1.Canvas.Draw(0,0,Bitmap); 　　 Application.ProcessMessages; //让Application去处理消息队伍中的消息 　　end;