Пример создания формы с вкладками
1. Для создания нового приложения выполните команду File ► New ► VCL Forms Application.
2. Поместите на форму компонент TPageControl, расположенный на вкладке Win32 палитры компонентов.
3. С помощью команды New Page Контекстного меню компонента TPageControl создайте две вкладки.
4. Отредактируйте с помощью инспектора объектов свойство Caption каждой вкладки.
Для первой задайте заголовок Персональная информация, для второй — Служебная информация. Обратите внимание на то, что при изменении этого свойства синхронно изменяются заголовки вкладок.5. Разместите на форме по два компонента ТТаЫе и TDataSource.
6. Подключите к компонентам ТТаЫе таблицы Физические лица и Сотрудники базы данных Sales (подключение таблицы к компоненту набора данных было подробно рассмотрено ранее на примере создания простых форм).
7. Настройте источники данных TDataSource: один свяжите с набором данных таблицы Физические лица, второй — с набором данных таблицы Сотрудники.
8. Разместите необходимые элементы управления на вкладке Персональная информация и выполните их настройку.
9. Разместите на вкладке Служебная информация элементы управления для отображения и редактирования информации из таблицы Сотрудники.
Примерный вариант размещения элементов управления на обеих вкладках показан на рис. 10.16.
10. Настройте элементы визуализации полей базы данных и элементы навигации по набору данных. Свяжите элементы, расположенные на вкладке Персональная информация, с набором данных таблицы Физические лица, а на вкладке Служебная информация — с набором данных таблицы Сотрудники.
1. Добавьте в обработчик события OnCreate главной формы вызов метода Open для каждого набора данных, а в обработчик события OnClose — вызов метода Close. Текст данных обработчиков приведен в листинге 10.4.
2. Откомпилируйте и запустите программу.
Рис. 10.16. Размещение элементов управления на вкладках Персональная информация и Служебная информация |
Листинг 10.4. Обработчики событий для формы с вкладками
procedure TfrmTabbed.FormCreate(Sender: TObject); begin
Tablel.Open;
Table2.0pen
End:
procedure TfrmTabbed.FormClose(Sender: TObject: var Action: TCloseAction): begin
Tablet. Close:
Table2. Close end:
Внешний вид окна программы приведен на рис. 10.17.
Рис. 10.17. Вкладки Персональная информация и Служебная информация окна работающей программы |
Еще по теме Пример создания формы с вкладками:
- § 7 Совершение брака. – Необходимость определительной формы брака. – Римская форма. – Христианское венчание. – Германские народные формы брака. – Неопределительность формы брака и брачного суда на Западе. – Новый взгляд на брак в лютеранской церкви. – Постановление Тридентского собора о форме брака. – Церковный обряд брака у лютеран. – Начало гражданской формы брака в Англии. – Шотландские браки. – Гражданский брак во Франции. – Принятие этой формы в других государствах. – Гражданская форма брач
- Примеры жестокости по отношению к другим (эти примеры более всего относятся к семейной жизни):
- 3. Формы, порядок совершения завещания Формы завещания:
- § 37 История вотчинной записки в России. – Явка актов в приказах. – Справка. – Юридическое и финансовое ее значение. – Аналогия нашей формы с западными. – Изменение старой формы при Петре I. – Новый крепостной порядок и новое значение справки и отказа. – Форма нового отказа и ввода во владение
- § 68 Личная и вещественная ответственность по взысканию. – Сущность закладного права. – Первые его формы у римлян. – Меновая форма залога в новых законодательствах. – Ипотека. – Форма ее в римском и в новых законодательствах. – Ручной заклад. – Английские формы залога. – Одностороннее удержание движимого имущества в обеспечение
- § 60 Сущность договора о сообществе. – Формы римского права и новых законодательств. – Полное и неполное общение. – Участие и соотношение членов. – Ответственность. – Действие смерти и несостоятельности. – Выход членов. – Расторжение. – Главные формы нового права. – Полное товарищество. – Отношение членов. – Раздел прибылей. – Товарищество на вере. – Закрытое товарищество.
- § 8 Значение формы в договоре. – Римская стипуляция и правила иностранных законодательств. – Историческое значение формы в русском законодательстве. – Правила о совершении актов. – Отсутствие руководящего начала. – Колебания судебной прак- тики и наклонность ее к формализму. – Значение явки в актах договора. – Домашние акты. – Словесные соглашения. – Можно ли доказывать их свидетелями? – Гербовый сбор.
- 14.8.2. Традиция создания инструментов
- §10. СОЗДАНИЕ ЮРИДИЧЕСКОГО ЛИЦА
- Статья 87. Создание юридического лица
- 2. Создание и управление учреждением
- 14.8.1. Принцип создания инструментов
- Создание концепции