本文整理自网络，侵删。
在用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;
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/genispan/archive/2009/07/22/4370560.aspx
相关阅读 >>
Delphi winapi: getparent - 判断两个窗口是不是父子关系
Delphi get_hd_serial() 获得磁盘驱动器序列号
更多相关阅读请进入《Delphi》频道 >>
