How can I set the current page of a TPageControl?

Question

I am using a pagecontrol component and I need to add a button and click it to go to a specified page.

How can I do this please?

Answer 1

Add a button to the form and write an OnClick event handler like this:

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

Answer 2

You can use ActivePageIndex:

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