Над какой закладкой курсор в TabControl?

Материал из DRKB

Над какой закладкой курсор в TabControl?[править | править код]

Получение позиции мышиного курсора для 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;


Author: YoungHacker
Source: Взято с http://delphiworld.narod.ru
ID: 01164
ID: 01178