Лекция: Задание № 2

1. Поместите в форму компонент NoteBook, а затем компонент TabSet и выровняйте последний с нижней частью формы (alButtom), а компонент NoteBook с клиентской областью (alClient). Присвойте названия страницам блокнота, выбирая свойство Pages и вводя некоторые значения в соответствующем редакторе. Подготовте ярлыки с помощью ввода некоторых строк для свойства Tabs.

2. Чтобы соединить блокнот с множеством ярлыков, нужно записать код для события OnChange компонента TabSet:

procedure TForm1.TabSet1Change(Sender:TObject;NewTab:

Integer; var AllowChange:Boolean);

Begin

NoteBook1.PageIndex:= NewTab;

End;

Вы можете активизировать страницу, используя также их названия (свойство ActivePage блокнота) вместо индекса (свойство PageIndex). Это возможно, если только названия страниц совпадают с названиями ярлыков.

NoteBook1.ActivePage:=TabSet1.Tabs[NewTab];

Задание № 3

1. В форму поместите компонент TabbedNoteBook в форму. Создайте три страницы. Поместите кнопку Close, которая должна присутствовать на всех страницах.

2. На первой странице блокнота поместите список (ListBox) с названиями страниц. Чтобы изменить страницы в блокноте с помощью ListBox, напишите следующий код:

procedure TForm1.ListBox1Click(Sender:TObject);

Begin

TabbedNoteBook1.PageIndex:=ListBox1.ItemIndex;

End;

3. На второй странице блокнота поместите компонент FontDialog и кнопку для изменения шрифта. Чтобы изменить шрифт, когда пользователь щелкнет по соответствующей кнопке, запишите код: