7

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

请问我该怎么做?

4

3 回答 3

13

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

procedure TMyForm.Button1Click(Sender: TObject);
begin
  PageControl1.ActivePage := TabSheet1;
end;
于 2011-05-26T08:53:03.007 回答
8

您可以使用 ActivePageIndex:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0;
end;
于 2011-05-26T09:25:17.220 回答
1

我可以补充一点,您不能在 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;
于 2019-03-28T10:12:33.443 回答