像QQ好友Hint提示

Question

请问如何像QQ那样的好友列表的HINT提示?
鼠标移到某一项的时候就显示这个好友的详细信息?最好有个实例.
如果用ListView中第一项都显示不同的HINT呢?我目前是这样做的
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
        A:Integer;
        n:string;
  begin
        A:=ListBox1.ItematPos(Point(X,y),True);
        IF   A>=0   then
          Begin
              ListBox1.Hint:=ListBox1.Items[A];
              Application.ActivateHint(Point(X,Y));     //important
              n:='s' ;
              form2.show(x,y,n);  
          End;
end;
但是会系统出错,还有就是无法知道什么时候关闭Hint
谁给个实例或者给予纠正

Answer 1

用一个Tform 就可以实现，你只要在leave消息里把窗体隐藏即可，我就是这样做的