TPageControl使用代码节选

procedure TForm1.btn1Click(Sender: TObject);
begin
case cbb1.ItemIndex of
0:pgc1 .ActivePageIndex :=0;
1:pgc1 .ActivePageIndex :=1;
2:pgc1 .ActivePageIndex :=2;
3:pgc1 .ActivePageIndex :=3;
end
end;