如何设置TPageControl的当前页面？

Question

我使用的是的PageControl组件,我需要添加一个按钮,点击它去到指定的页面.

我该怎么办？

Answer 1

向窗体中添加一个按钮,并编写一个OnClick事件处理程序,如下所示:

procedure TMyForm.Button1Click(Sender: TObject);
begin
  PageControl1.ActivePage := TabSheet1;
end;

Answer 2

您可以使用ActivePageIndex:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0;
end;