当前位置：文江博客话题详情

如何设置 TPageControl 的当前页面？

发布于 2024-11-09 19:38:06 字数 57 浏览 0 评论 0原文

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

请问我该怎么做？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

孤城病女 2024-11-16 19:38:06

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

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

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

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

回复收藏 0 原文

千仐 2024-11-16 19:38:06

您可以使用 ActivePageIndex：

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

You can use ActivePageIndex:

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

回复收藏 0 原文

血之狂魔 2024-11-16 19:38:06

我可以补充一下，您无法在 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;

Can I just add that you cannot set the active page within the OnChange event (I tried for ages!). Any checks that are needed must be done within the OnChanging event and then set the Allowchange var to true or false accordingly:

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;

回复收藏 0 原文

~没有更多了~