delphi - 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;