Delphi 隐藏或显示鼠标指针

Delphi 将字符串中的任意字符转换成大写，可将给定一串字符中指定的字符转换成大写，如示例运行效果所示，将字符串中的所有l字符变成大写的L。

百叶窗效果的图像显示，这个效果我觉得大家不会陌生吧，在电视上、电脑上，这种切换图片显示的方式还是挺常见的，像百叶窗的样式，本效果重在演示图像的解析。

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

关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 S:integer; 　　begin 　　 S:=2147483647; 　　 showmessage(inttoHex(s,8)); 　　 showmessage(inttoHex(s,10)); 　　 showmessage(inttoHex(s,16)); 　　 showmessage(inttoHex(s,32)); 　　end;

Delphi 获取拖动到窗体中的文件的路径，这实际上是一个拖放打开文件的例子，这只不是其中的一个步骤，拖放打开是把文件拖放到本窗口中，直接打开该文件，而拖放得到路径是把文件的路径显示在窗口中，和打开文件其实难易程序是一样的。拖放后获取文件路径，代码如下： 　　procedure TForm1.FileIsDropped(var Msg: TMessage); 　　var 　　 NumFiles : longint; 　　 i : longint; 　　 FName : array[0..255] of char; 　　begin 　　 SetForegroundWindow(Handle); 　　 NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0); 　　 for i := 0 to (NumFiles - 1) do 　　 begin 　　 DragQueryFile(Msg.WParam,i,FName,sizeof(FName)); 　　 Memo1.Lines.Add(FName); 　　 end; 　　end;

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 监控剪贴板的文字内容，这个监控程序可以监控复制到剪切板的文字信息，图片暂时不能监控到，具体的监控实现如下： 　　NextformHwnd:HWND;//观察链中下一个窗口句柄 　　procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD; 　　//处理WM_DRAWCLIPBOARD消息过程 　　 { Public declarations } 　　//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口 　　SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam); 　　//查询剪贴板中特定格式的数据内容 　　if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then 　　begin 　　 //处理剪贴板中内容 　　 memo1.Lines.Clear; 　　 memo1.Lines.Add(Clipboard.asText); 　　end;

这是一款基于Delphi和Access数据库的编程案例：教材管理系统源码，经过修正完善后可作为学校的教材管理程序，功能模块主要有：系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。

Delphi 使DBGrid支持鼠标滚轮，测试前请确保程序已连接好数据库，否则会有很长一段时间反应，读取的数据会显示在DBGrid控件中，请在DBGrid组件中滚动鼠标滚轮，可将整个列表上下滚动，便于浏览数据，这个功能在一些软件中经常会遇到，具体编写思路请下载源码研究。

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