显示鼠标指示地方的全部文本计算机等级考试

文章作者 100test 发表时间 2009:07:07 21:54:12
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　最近，在用Delphi编写程序时发现：当ListBox(列表框)中的文本超过显示范围时就看不到文本的完整内容，这很不方便。于是决定动手解决这个问题，让鼠标指到哪里就显示哪里的全部文本内容。
　　一、分析问题
　　我们知道ListBox的Items对象中有一个Strings函数，通过指定索引可获取该索引所对应的文本。那么我们只要在OnMouseMove事件中获取当前鼠标所指的索引即可获取该索引的文本并使用Hint显示出来。因此，重点就在获取鼠标所指的索引。通过查看帮助文件，发现ListBox控件中有一个ItemAtPos函数可返回鼠标所指向的索引。找到了这个函数解决问题就容易多了。
　　二、解决问题
　　在窗体中，加入一个ListBox控件，将ShowHint属性设置为True；再添加一个CommandButton控件，Caption属性设置为“填充ListBox”。
　　双击Button1控件，写入下面的代码：
　　procedure TForm1.Button1Click(Sender：TObject).
　　//用显示System目录中的文件来填充ListBox
　　var
　　SearchRec: TSearchRec.
　　nResult: Integer.
　　const
　　szFilePath = ’d:\\windows\\system32\\*.*’.
　　begin
　　//填充ListBox
　　ListBox1.Clear.
　　nResult:=FindFirst(szFilePath，faAnyFile，SearchRec). //查找第一个文件
　　while nResult = 0 do //如果返回值为0表示找到文件
　　begin
　　//将找到的文件添加到ListBox中；ExtractFilepath函数用于提取文件路径
　　ListBox1.Items.Add(ExtractFilePath(szFilePath) SearchRec.Name).
　　nResult:=FindNext(SearchRec). //继续查找下一个文件，至到返回值不为0时
　　end.
　　end.
　　下面编写关键的部分代码，在ListBox的OnMouseMove事件中，加入下面的代码：
　　procedure TForm1.ListBox1MouseMove(Sender:TObject. Shift:TShiftState. X，Y:Integer).
　　var
　　nPos:TPoint. //将nPos声明为TPoint类型
　　nIndex:Integer.
　　begin
　　//填充nPos结构
　　//由于ItemAtPos是利用鼠标在ListBox中的坐标计算出所指位置的，因此我们需要获取鼠标在ListBox中的坐标。在OnMouseMove事件中已经为我们提供了鼠标在ListBox中的坐标：X、Y。只需将X、Y赋给nPos的x、y即可。
　　nPos.x:=X.
　　nPos.y:=Y.
　　//使用ItemAtPos函数返回鼠标所在ListBox中的位置
　　nIndex:=ListBox1.ItemAtPos(nPos，True).
　　if nIndex >. -1 then
　　ListBox1.Hint:=ListBox1.Items.Strings[nIndex]. //显示当前位置的文本
　　end.
　　将上面的代码完成后，就可以实现将鼠标指向ListBox中任何一个Item时就显示出内容来。但是程序还有一个Bug，每次鼠标移动到ListBox中时只能显示一次。这个问题与显示Hint有关。程序默认重复显示Hint的时间为0毫秒，因此只能显示一次Hint，只要我们修改重复显示Hint的时间即可解决这个问题。在窗体中加入一个ApplicationEvents控件，在OnShowHint事件中加入下面的代码：
　　procedure TForm1.ApplicationEvents1ShowHint(var HintStr:String.
　　var CanShow:Boolean. var HintInfo:THintInfo).
　　begin
　　HintInfo.ReshowTimeout:=100. //设置重显时间，这里设为100毫秒比较合适
　　end.
　　修改Hint的重显时间后这个功能就非常的完美了。可以看出，真正实现这个功能的代码是很少很简单的，用一个ItemAtPos函数就可以轻松搞定。这就是 Delphi可爱的地方。不过作为程序员，不应该就此满足的，如果你有兴趣了解ItemAtPos是怎样获取鼠标所指范围在ListBox中索引的，那么请继续向下看。
　　三、深入了解
　　要查看ItemAtPos函数在Delphi中是怎样编写的很简单，只要按下Ctrl 键不放，再用鼠标点击ItemAtPos函数，就会自动定位到这个函数的所在位置(用这样的方法，我们可以查看Delphi中大多数函数及过程的源代码，分析一下这些源代码对我们编写程序是很有帮助的，而且也可以很好地了解这些函数是如何工作的)。
　　源码如下：
　　function TCustomListBox.ItemAtPos(Pos:TPoint. Existing:Boolean):Integer.
　　var
　　Count:Integer. //记录ListBox中Item的个数
　　ItemRect:TRect. //记录Item的范围
　　begin
　　if PtInRect(ClientRect，Pos) then //PtInRect是一个API函数，用于检测Pos所指的范围是否在ListBox当中，ClientRect这里是begin ListBox的范围
　　Result:= TopIndex. //将返回值设为ListBox第一个Item的索引值，TopIndex为0
　　Count := Items.Count. //计算总数
　　while Result <. Count do //如果当前索引值小于总数则开始循环
　　begin
　　Perform(LB_GETITEMRECT,Result,Longint(@ItemRect)). //向ListBox控件发送LB_GETITEMRECT消息，获取当前Item的范围
　　if PtInRect(ItemRect,Pos) then Exit. //如果刚好Pos所指的范围在当前Item的范围内则退出整个函数
　　Inc(Result). //将Result加1，相当于Result:=Result 1
　　end.
　　if not Existing then Exit.
　　end.
　　Result:：= -1. //如果Pos所指的范围不在ListBox范围内，则返回-1
　　end.
　　知道了吧？Delphi就是这样做的。了解后我们自己也可以写一个这样的函数。