7
मैं एक पेजcontrol घटक का उपयोग कर रहा हूं और मुझे एक बटन जोड़ने और निर्दिष्ट पृष्ठ पर जाने के लिए इसे क्लिक करने की आवश्यकता है।मैं एक TPageControl का वर्तमान पृष्ठ कैसे सेट कर सकता हूं?
मैं यह कैसे कर सकता हूं?
A
उत्तर
12
फ़ॉर्म में एक बटन जोड़ें और इस तरह एक ऑनक्लिक ईवेंट हैंडलर लिखें:
procedure TMyForm.Button1Click(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet1;
end;
8
आप उपयोग कर सकते हैं ActivePageIndex:
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 0;
end;
+2
यह 'ActivePage' का उपयोग करने के बराबर है, दो गुण समानार्थी हैं –
+3
मैं अभी भी ActivePage को सेट करना पसंद करूंगा, क्योंकि किसी पृष्ठ की अनुक्रमणिका परिवर्तनीय है। या कम से कम: उस क्षमता है। दूसरी तरफ एक पृष्ठ का संदर्भ हमेशा वही रहेगा। और सबसे अधिक संभावना कोड एक अर्थहीन अंक के मुकाबले एक आत्म-वर्णनात्मक चर नाम के साथ अधिक पठनीय होगा। – NGLN
+4
मुझे लगता है कि यह स्थिति पर निर्भर करता है। कई बार मैंने ActivePageIndex को फॉर्मशो पर 0 पर सेट किया है यह सुनिश्चित करने के लिए कि पहले व्यक्ति प्रारंभ पर दिखाई देगा। टैबशीट कोड को फिर से भरने के बाद भी यह ठीक है। –
@ Satch3000, अच्छा सुझाव है, लेकिन ध्यान दें कि यह एक ट्रिगर नहीं करेगा PageControl के लिए OnPageChange ईवेंट, यदि आप चाहते हैं ** ** ** ऐसा होने के लिए आपको उस ईवेंट को अपने 'बटन 1 क्लिक करें' में स्पष्ट रूप से कॉल करने की आवश्यकता होगी। – Johan