Maslahatlar

TPageControl Delphi boshqaruvidagi yorliqlarni qanday yashirish kerak

TPageControl Delphi boshqaruvidagi yorliqlarni qanday yashirish kerak

TPageControl Delphi boshqaruvi bir nechta sahifali muloqot oynasini yaratishda ishlatiladigan sahifalar to'plamini namoyish etadi. Har bir sahifa - tab varaqasi o'z boshqaruv elementlariga ega. Foydalanuvchi boshqaruvning yuqori qismida paydo bo'lgan sahifani bosish orqali sahifani tanlaydi (uni ko'rinadigan qiladi).

Sahifa nazorati yorliqlarini yashirish

Agar siz sahifalarni (dialog oynalarini) oldinga va orqaga o'tkazish uchun paydo bo'ladigan sehrgarga o'xshash foydalanuvchi interfeysini yaratishingiz kerak bo'lsa, sahifalarni (dialog oynalarini) oldinga va orqaga o'tkazish uchun, PageControl yorliqlarini yashiring va shu bilan ma'lum bir sahifani tanlashni taqiqlang. foydalanuvchi sichqonchasi.

Hiyla - bu sozlamada Ko'rinadigan Sahifani boshqarishning har bir varag'i (TTabSheet ob'ekti) uchun "false" qiymati.

Sahifani ikkalasidan ham faollashtirish ActivePage yoki ActivePageIndex PageControl xususiyatlari ishlaydi emas ko'taring OnChange va OnChanging voqealar.

Dastur asosida faol sahifani o'rnatish uchun SelectNextPage usulidan foydalaning:

// PageControl yorliqlarini yashirish
var
sahifa: butun son;
boshlash
sahifa uchun: = 0 - PageControl1.PageCount-ga - 1 ta
boshlash
PageControl1.Pagespage.TabVisible: = noto'g'ri;
oxiri;
// birinchi yorliqni tanlang
PageControl1.ActivePageIndex: = 0;
(*
Yoki to'g'ridan-to'g'ri Active Page-ni o'rnating
PageControl1.ActivePage: = TabSheet1;
Eslatma: yuqoridagi ikkisi ko'tarilmaydi
OnChanging va OnChange tadbirlari
*)
oxiri;
TForm1.PageControl1Changing protsedurasi (
Yuboruvchi: TObject;
var AllowChange: Boolean);
boshlash
// oxirgi sahifada bo'lsa, hech qanday o'zgarish bo'lmaydi
AllowChange: = PageControl1.ActivePageIndex <-1 + PageControl1.PageCount;
oxiri;
// "Oldingi" Tproorm1 protsedurasini tanlang.
boshlash
PageControl1.SelectNextPage (noto'g'ri, noto'g'ri);
oxiri;
// "Keyingi" ni tanlang TForm1.NextPageButtonClick (yuboruvchi: TObject);
boshlash
PageControl1.SelectNextPage (haqiqiy, noto'g'ri);
oxiri;

Ushbu texnikadan foydalanish yanada soddalashtirilgan interfeysga olib keladigan shaklni yo'q qiladi, lekin har bir yorliqda boshqarishning tartibga solinishi foydalanuvchini tablar o'rtasida tez-tez harakatlanishiga majbur qilmaydi.