Курсор на заголовке tabsheet'a

[Karych]

Вечер добрый!

делаю: при наведении мыши на один из заголовков tabsheet'a появляется CloseBtn, а если мышь убрать с этого заголовка чтобы кнопка опять пропала... не получается вторая часть-прятать кнопку закрытия вкладки!

procedure TMainF.sPageControl3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Sender is TsPageControl) then
   TsTabSheet(sPageControl3.Pages[sPageControl3.IndexOfTabAt(X,Y)]).UseCloseBtn  := true;
 
 if  not (Sender is TsPageControl) then
  TsTabSheet(sPageControl3.Pages[sPageControl3.IndexOfTabAt(X,Y)]).UseCloseBtn  := false;
 
end;

как определить что курсор ушел с вкладки?

[Прик]

События:
TabSheet.OnMouseEnter - курсор на вкладке
TabSheet.OnMouseLeave - курсор покинул вкладку

Надеемся, что TsTabSheet тоже имеет возможность обрабатывать эти сообщения

[Karych]

жаль, но этих событий нет не у tabsheet и не у pagecontrol
а кроме способов создания наследника с этими событиями другие варианты есть?

[Прик]

Есть такие события, однако.

[Karych]

Ну что за игра в докажи?
вот обычный табшит

вот из альфаскинс

событий чета не наблюдаю! а так у тя наверн делф10

[Karych]

разобрался/кому мож понадобиться

procedure TMainF.sTabSheetMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
ts:tStabsheet;
I,index:integer;
begin
  Index :=sPageControl3.IndexOfTabAt(X,Y); // получаем номер вкладки под курсором
if Index < 0 then Exit;

  TS := TsTabSheet(sPageControl3.Pages[Index]); // сама вкладка
  if TS.UseCloseBtn then Exit; // если свойство уже установлено то уходим (курсор движется по вкладке)
  for i := 0 to sPageControl3.PageCount do
  begin // тушим все кнопочки
    TsTabSheet(sPageControl3.Pages[Index]).UseCloseBtn  := false;
    end;
  ActivTabNameClick(nil);
  TS.UseCloseBtn  := true; // выставляем у той что под курсором
  sPageControl3.Invalidate; // перерисовываем
end;