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;

Answer 3

我能补充一下，您无法在OnChange事件中设置活动页面（我尝试了很长时间！）。必须在OnChanging事件内完成所有需要的检查，然后相应地将Allowchange var设置为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;

如何设置TPageControl的当前页面？

3 个答案: