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;