delphi - 如何设置 TPageControl 的当前页面？

Question

我正在使用页面控制组件，我需要添加一个按钮并单击它以转到指定页面。

请问我该怎么做？

Answer 1

向表单添加一个按钮并编写一个 OnClick 事件处理程序，如下所示:

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