Консультация № 62298
12.11.2006, 14:21
0.00 руб.
0 5 2
Здравствуйте, уважаемые эксперты!!!! Подскажите, плиз, как с помощью одной кнопочки переключать закладки в PageControl, причем их очень много!!! Огромное спасибо заранее!!!

Обсуждение

Неизвестный
12.11.2006, 15:11
общий
это ответ
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
For i:=0 to PageControl1.PageCount-1 do
begin
PageControl1.ActivePage:=PageControl1.Pages[i];
ShowMessage(‘TabSheet‘+IntToStr(i+1));
end;
end;
Неизвестный
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;
Неизвестный
12.11.2006, 18:21
общий
Прошу прошения, поправка if i>=e then i:=0;
Неизвестный
13.11.2006, 07:24
общий
Поправка к ответу Monah-аi - должна быть глобальной !!!
Неизвестный
13.11.2006, 08:18
общий
Позвольте не согласится. Так как переменная i вычисляется из i:=PageControl1.ActivePageIndex; То нет смысла создовать её как глобальную. Я проверял, все работает.
Форма ответа