Как определить Index страницы (Page) по заголовку в TPageControl?

← →
Volf_555 (2006-02-12 16:52) [0]

Есть фиксированный заголовок каждой страницы в TPageControl. При обрисовки индексы страниц меняются, но заголовки остаются прежними.

Как тогда определить Index Page по заголовку в TPageControl?

← →
Marser © (2006-02-13 01:43) [1]

В принципе, это можно сделать например вот так:
procedure TForm1.Button1Click(Sender: TObject); var i,ind:integer; begin i:=0; ind:=-1; while (i=PageControl1.PageCount)and(ind=-1) do if PageControl1.Pages[i].Caption="TabSheet2" then ind:=i else inc(i) end;

Но из совершенно неясной постановки вопроса можно предположить, что может быть достаточно и просто доступа к активной странице через ActivePage.

Как определить Index страницы (Page) по заголовку в TPageControl? Найти похожие ветки