[[seoane]]

Prueba con esto:

Código Delphi [-]
Control := ControlAtPos(ScreenToClient( Mouse.CursorPos), True, TRUE);