4 (1933)

124 Aplikacje w Delphi. Przykłady

Przykład 11.3.

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.4.

Rysunek 11.4.

Zakładki TTabControl

Rozwiązanie

Na formularzu wstaw komponent TTabControl z zakładki Win32, komponent TOpenDialog z zakładki Dialogs i przycisk TButton.

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

OpenDialogl.Options := [ofAllowMultiSelect.ofFileHustExist, ofHideReadOnly];

if OpenDialogl.Execute then

begin

//dodanie listy zaznaczonych plików do właściwości Tabs TabControll.Tabs.Assign(OpenOialogl.Files);

//do pola Memo ładowany jest plik tekstowy, którego nazwa jest // równocześnie nazwą aktywnej zakładki

Memol.Li nes.LoadFromFi1eCTabControl1.Tabs[TabControl1.Tablndex]): end; end;

Przy zmianie aktywnej zakładki (zdarzenie OnChange) do pola Memol wczytywana jest zawartość pliku tekstowego o nazwie będącej również nazwą wybranej zakładki:

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

with TabControll do

Memol.Lines.LoadFromFi1e(Tabs[Tablndex]);

end:

Przykład 11.4.

Wyświetl nazwy zakładek w komponencie TPageControl.

Rozwiązanie

Wstaw komponent TPageControl (Win32), TButton i TLabel. Korzystając z menu podręcznego i polecenia NewPage wstaw kilka zakładek, jak na rysunku 11.2.

W procedurze obsługi zdarzenia OnCl ick dla przycisku wpisz instrukcje, jak w procedurze poniżej.