Posicionar el Hint de un TListView en la posicion del raton

[aguml]

Hola amigos, quiero que al colocarme en una fila del ListView me aparezca el InfoTip o Hint para cada fila pero en la posicion del raton ya que me aparece pero en la primera columna aunque el raton este en la ultima columna de esa fila.
Buscando por internet encontré esto que se supone que haria lo que yo quiero pero no se porque ni siquiera entra en el evento OnOver del TListView.

Código PHP:

void __fastcall TForm1::ListViewProcesosInfoTip(TObject *Sender,
      TListItem *Item, AnsiString &InfoTip)
{
   InfoTip = Item->SubItems->Strings[4];
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ListViewProcesosMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   TPoint pt;
   TLVHitTestInfo lvHitInfo;
   AnsiString hint;

   pt = ListViewProcesos->ScreenToClient(Mouse->CursorPos);

   memset(&lvHitInfo, 0, sizeof(lvHitInfo));
   lvHitInfo.pt = pt;

   //over a sub item!
   if( -1 != ListViewProcesos->Perform(LVM_SUBITEMHITTEST, 0, (int)&lvHitInfo))
   {
      //activate hint
      hint = ListViewProcesos->Items->Item[lvHitInfo.iItem]->SubItems->Strings[4];
      ListViewProcesos->Hint = hint;
      Application->ActivateHint(Mouse->CursorPos) ;
   }
}
//--------------------------------------------------------------------------- 


¿Alguien sabe como hacer eso?

[[escafandra]]

Revisa el evento TApplication::OnShowHint

Saludos.

[aguml]

ok pero ¿Por que puede ser que no entre al evento onover del tlistview?

[[escafandra]]

Ese evento no lo tiene el TListView de mi Builder C++ 6

Saludos.

[aguml]

perdon, quise decir OnMouseMove

[[escafandra]]

Pues ese evento funciona perfectamante. Mira a ver si lo tienes bien asignado en el inspector de objetos.


Saludos.