Как узнать индекс выделенной вкладки TabSet?

[Сергей089]

Здравствуйте. Как узнать индекс выделенной вкладки TabSet? Я кинул на форму Tabset и сделал 5 вкладок: 0,1,2,3,4. И кнопку с процедурой

procedure TfrMain.Button2Click(Sender: TObject);
begin
Label1.Caption:=inttostr(tabset1.TabIndex);
end;

Но в свойстве TabIndex очень редко оказывается индекс выделенной вкладки. Например, запустил программу, нажал на вкладку "3", нажал на кнопку, в Label отобразилось "3". Потом нажал на вкладку "2", нажал на кнопку, в Label почему-то "3" .

[Сергей089]

Что-то я не понял. Если через по шагу выполнять программу, то в TabIndex находится нужный индекс, и Label он записывается

[ex.cluz]

Можно сначала поискать нужный контрол, а потом:

Label1.Caption:=inttostr(tabset1.ActivePage.Controls[{тут номер контрола}]);

Если на вкладке только однин Лэйбл, то подставляете 0 без всякого поиска.

[Johnson]

TabIndex - это проперти, указывающее, в каком порядке переходить по контролам клавишей TAB
ActivePage - то, что Вам нужно.

[Сергей089]

ex.cluz и Johnson, что-то нет у TabSet такого свойства

[_Engine_]

Действительно, наблюдаются глюки с TabIndex.
Попробуйте так:

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
 Caption := IntToStr(NewTab);
end;

А вот этот код у меня работает

[ex.cluz]

Хех, перепутал немного. Там не ТабСет ставить надо, а:

Label1.Caption:=inttostr(PageControl1.ActivePage.Controls[{тут номер контрола}].Caption);

Добавлено позже

Чет я вообще перепутал. Сейчас перечитал, что именно нужно и понял, что советовал не то, сорри.
Я-то думал, ТС надо с определенной вкладки кэпшн лэйбла считать

[Сергей089]

_Engine_, у меня тоже пошло.
Сейчас заработало все. Оказывается, если у формы FormStyle стоит fsNormal, то все вышеперечисленные коды работают на ура, а если fsMDIForm, то работает только то, что предложил _Engine_. Может ли быть такое, что при FormStyle=fsMDIForm Label перерисовывается через раз?

[_Engine_]

Нет, это врядли

[Сергей089]

Ладно, это не важно. Главное, что свойства NewTab и TabIndex работают, оказывается, правильно, и теперь известен индекс выделенной вкладки . Спасибо всем!