让ListBox实现即指即显功能

在用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;