над каким Ttabsheet находится курсор

[Dock1100]

Как определить над каким Tabsheet находитса курсор(хотя бы номер), ниче в голову неприходит.
К примеру чтоб по клику на Tabsheet закрывался не активный а тот по которому кликнули.

 

[VahaC]

Получение позиции мышиного курсора для TabControl над какой закладкой находится курсор.

function Form1.ItemAtPos(TabControlHandle : HWND; X, Y : Integer) : Integer;
var
HitTestInfo : TTCHitTestInfo;
HitIndex : Integer;
begin
HitTestInfo.pt.x := X;
HitTestInfo.pt.y := Y;
HitTestInfo.flags := 0;
HitIndex := SendMessage(TabControlHandle, TCM_HITTEST, 0, Longint(@HitTestInfo));
Result := HitIndex;
end;

 

[Dock1100]

Спосибо, работает(надо в uses длпосать CommCtrl), правда не так как мненадо, но я это исправлю