Как определить Index страницы (Page) по заголовку в TPageControl? [D6, WinXP]
Volf_555 © (2006-02-12 16:52:00)
Есть фиксированный заголовок каждой страницы в TPageControl.
При обрисовки индексы страниц меняются, но заголовки остаются
прежними.
Как тогда определить Index Page по заголовку в
TPageControl?
Marser (2006-02-13 01:43:00) [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.
Наверх 
ЧАТ |
Орешник |
|
