إليك مثال بسيط:
.....
انسخ رمز الكود كما يلي:
يبدأ
// قم أولاً بحظر كافة العلامات
لأني := 0 إلى PageControl.PageCount - 1 do
PageControl.Pages[i].TabVisible := False;//Hide
//افتح صفحة علامة التبويب المراد عرضها أولاً، Tab_Page1:TTabSheet;
PageControl.ActivePage := Tab_Page1; // هذه هي الصفحة للتحكم في القفزة
نهاية؛