显示鼠标指示地方的全部文本3

 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就是这样做的。了解后我们自己也可以写一个这样的函数。