[[cHackAll]]

Empezado por david_uh

...lo solucione poniendole a la cordenada y el valor del top de la lista..

Me alegra que te haya servido, pero me parece que tu solicion a la nueva eventualidad no es la adecuada (anti estética)... prueba reemplazar con ésto:

Código Delphi [-]
   Mouse.CursorPos := ListBox1.ClientToScreen(Point(ListBox1.Width div 2, ((ListBox1.ItemIndex - Windows.GetScrollPos(ListBox1.Handle, SB_VERT)) * ListBox1.ItemHeight) + (ListBox1.ItemHeight div 2)));