12.11.2006, 18:20
общий
это ответ
Здравствуйте, Oopbl!
Я думаю вам надо не перебирать страницы одним кликом все, а по очереди. Смотрите приложение.
Приложение:
procedure TForm1.Button1Click(Sender: TObject);var i, e: Integer;begin i:=PageControl1.ActivePageIndex; e:=PageControl1.PageCount; inc(i); if i>e then i:=0; PageControl1.ActivePageIndex:=i;end;