TTabControl.IndexOfTabAt is always -1, with a hack p.y:=-5 it works

Original Reporter info from Mantis: Alextp2

• Reporter name: CudaText man_

Description:

demo attached.
it shows PageControl - for it, mouse move shows OK tab index in caption.
if shows TabControl - for it, mouse move shows always -1 index in caption.

if you make hack from
https://bugs.freepascal.org/view.php?id=27467
and set
p.y:= -5
before the
n:=TabControl1.IndexOfTabAt(p);
then it will work.

Mantis conversion info:

• Mantis ID: 38403
• Build: 64415
• Platform: Win10 x64
• Version: 2.1 (SVN)
• Fixed in version: 2.2
• Fixed in revision: 64424 (#ed6e0875),64436 (#dfa3fe0e),64677 (#37d6fcb8)
• Monitored by: » @martin_frb (Martin Friebe)
• Target version: 2.2