Как я могу установить текущую страницу TPageControl?

Question

Я использую компонент управления страницей, и мне нужно добавить кнопку и щелкнуть ее, чтобы перейти на указанную страницу.

Как мне это сделать, пожалуйста?

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;

Answer 3

Могу ли я просто добавить, что вы не можете установить активную страницу в событии OnChange (я пытался целую вечность!).Любые необходимые проверки должны быть выполнены в событии OnChanging, а затем установите для переменной Allowchange значение true или false соответственно:

procedure Tfrm_AspireParams.PC_OptionsChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
 AllowChange := true;
 if fActivated then
 begin
   if BBtn_Timesheets_Save.Enabled then  // They have not saved changes on this tab.
   begin
     messagedlg('Please save the page first', mtInformation, [mbOK], 0);
     AllowChange := False;
   end;
 end;

end;