如何设置TPageControl的当前页面？

我正在使用pagecontrol组件，我需要添加一个按钮并单击它以转到指定的页面。如何设置TPageControl的当前页面？

我该怎么做？

2011-05-26 Satch3000

添加一个按钮的形式，写一个onclick事件处理程序是这样的：

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

2011-05-26 08:53:03

@ Satch3000，好建议，但请注意，这不会触发OnPageChange事件为PageControl，如果你想**发生**，你需要明确地在你的'Button1Click'中调用该事件。 – Johan 2011-05-26 09:41:52

您可以使用ActivePageIndex：

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

2011-05-26 09:25:17

这相当于使用'ActivePage'，这两个属性是同义词 – 2011-05-26 09:58:03

我仍然希望设置ActivePage，因为页面的索引是可变的。或者至少：有这种能力。另一方面，对页面的引用将始终保持不变。最有可能的是，代码的自描述性变量名称比无意义数字更具可读性。 – NGLN 2011-05-26 15:44:05

我认为这取决于情况。很多时候，我在formShow上使用ActivePageIndex设置为0来确保第一个在开始时可见。重新填写tabsheets代码后，它仍然可以。 – 2011-05-26 16:39:44

回答