2 (2410)

122 Aplikacje w Delphi. Przykłady

Charakterystyczne zdarzenia komponentu TTabControl:

OnChange — zdarzenie występuje przy zmianie bieżącej zakładki.

OnChanging — zdarzenie występuje przed zdarzeniem OnChange. Procedura obsługi tego zdarzenia zwraca parametr Al IowChange pozwalający na zablokowanie możliwości zmiany, np.:

procedurę TForml.TabControllChanging(Sender: TObject;

var AllowChange: Boolean);

begin

if TabControll.TabIndex=l then AllowChange:=false;//zablokowanie zakładki o numerze 1 end;

Procedura spowoduje zablokowanie możliwości zmiany zakładki, gdy wybrano zakładkę drugą (o numerze 1).

Komponent TPageControl — rysunek 11.2 — w odróżnieniu od komponentu TTabControl posiada tzw. karty lub arkusze, na których można umieszczać inne komponenty wizualne (na każdej zakładce inne). Poszczególne strony są oddzielnymi komponentami reprezentowanymi przez właściwość Pages. Właściwość ta jest niedostępna w oknie Inspektora Obiektów, można jednak dodawać i usuwać strony w fazie projektowania korzystając z menu podręcznego, wyświetlającego się po kliknięciu prawym klawiszem myszy komponentu TPageControl.

TabSheetS	TabSheel?	TabSheeł8
TabSheet3	T ąbSheeW	TabSheełS
W gjSię

Rysunek 11.2.

Zakładki typu TPageControl

Ważniejsze właściwości i metody to:

Pages — właściwość tablicowa, tablica stron typu TTabSheet. Na przykład PageControl 1. Pages[l] .Caption to nazwa zakładki o indeksie 1 (Pagelndex=l).

PageCount — liczba stron (zakładek).

ActivePage — właściwość typu TTabSheet, wskazuje bieżącą stronę.

ActivePageIndex — numer aktywnej strony.

Tablndex — numer aktywnej strony. Jeśli właściwość TabVisible=false to Tablndex= -1, dla pozostałych stron właściwość ta określa numer w tablicy stron widocznych. Wtedy

ActivePageIndex może być większy niż Tablndex.

TabPosition — położenie nazw zakładek, znaczenie podobne jak w przypadku komponentu TTabControl.