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

Тема в разделе "Delphi - Компоненты", создана пользователем Dock1100, 27 фев 2010.

  1. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Как определить над каким Tabsheet находитса курсор(хотя бы номер), ниче в голову неприходит.
    К примеру чтоб по клику на Tabsheet закрывался не активный а тот по которому кликнули.
     
  2. VahaC

    VahaC Well-Known Member

    Регистрация:
    10 янв 2007
    Сообщения:
    116
    Симпатии:
    0
    Получение позиции мышиного курсора для 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;
     
  3. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Спосибо, работает(надо в uses длпосать CommCtrl), правда не так как мненадо, но я это исправлю
     
Загрузка...

Поделиться этой страницей