如何設置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

回答