मैं एक TPageControl का वर्तमान पृष्ठ कैसे सेट कर सकता हूं?

Question

मैं एक पेजcontrol घटक का उपयोग कर रहा हूं और मुझे एक बटन जोड़ने और निर्दिष्ट पृष्ठ पर जाने के लिए इसे क्लिक करने की आवश्यकता है।

मैं यह कैसे कर सकता हूं?

Answer 1

फ़ॉर्म में एक बटन जोड़ें और इस तरह एक ऑनक्लिक ईवेंट हैंडलर लिखें:

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

Answer 2

आप उपयोग कर सकते हैं ActivePageIndex:

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