Berikut ini contoh sederhananya:
.....
Copy kode kodenya sebagai berikut:
mulai
//Pertama-tama blokir semua tag
untuk i := 0 hingga PageControl.PageCount - 1 lakukan
PageControl.Pages[i].TabVisible := Salah;//Sembunyikan
//Buka halaman tab yang akan ditampilkan terlebih dahulu, Tab_Page1:TTabSheet;
PageControl.ActivePage := Tab_Page1; //Ini adalah halaman untuk mengontrol lompatan
akhir;