3 (2239)

Rozdział 11. ♦ Zakładki TTabControl i TPageControl 123

Visible — właściwość określa, czy widoczna jest zawartość całej zakładki (nazwa jest widoczna).

TabVisible — właściwość równa false powoduje zniknięcie całej zakładki razem z nazwą.

Sel ectNextPage — wybór następnej strony; kierunek wyboru zależy od parametru tej metody, np. SelectNextPage(true) powoduje wybranie następnej, natomiast Select-NextPage(false) poprzedniej zakładki.

Przykład 11.1.

Utwórz zakładki typu TTabControl, takie jak na rysunku 11.1.

Rozwiązanie

Wstaw na formularzu komponent TTabControl {Win32) i przycisk TButton. Zaznacz komponent TTabControl i kliknij z prawej strony właściwości Tabs. W otwartym oknie wpisz trzy nazwy zakładek: raz, dwa, trzy, każdą w innym wierszu. Standardowo znajdą się one na górze. Zmiana ich położenia na dolne wymaga ustawienia właściwości

TabPosition na tpBottom.

Przykład 11.2.

Po kliknięciu przycisku otwórz okno dialogowe do wyboru pliku, wybierz plik i załaduj jego zawartość do pola Memol zajmującego cały obszar zakładki. Nazwom zakładek przypisz nazwy plików — rysunek 11.3.

(3) obrazi | j obraz2 I bh obrazi ;|

Rysunek 11.3.

Zakładki typu TPageControl

procedurę TForml.TabControllChange(Sender: TObject); begin

//Imagel.Picture:=nil; case TabControll.TabIndex of 0: Imagel.Picture.LoadFromFi le('obrazl.bmp');

1: Imagel.Picture.LoadFromFi1e('obrazż.bmp’):

2: Imagel.Picture.LoadFromFile('obraz3.bmp');

end

end: