Создание класса типа форма
Рассмотрим создание класса для просмотра данных из одиночной таблицы, который содержит кнопки для перемещения по записям и выхода из формы.
- Откройте проект sales, в окне проекта выберите вкладку Classes (Классы) и нажмите кнопку New (Новый).
- В открывшемся диалоговом окне New Class (Новый класс) в поле ввода Class Name (Имя класса) введите имя создаваемого класса bcSingleTable.
- Из списка Based On (Базовый класс) выберите базовый класс Form (Форма).
- В поле Store In (Сохранить в) введите имя библиотеки классов Forms (Формы), в которой будет храниться создаваемый класс.
- На экране появляется пустая форма. Прежде всего, изменим свойство caption (Надпись) формы, введя в поле ввода значения свойства текст Табличная форма просмотра.
- Далее разместим в верхней части формы текст заголовка и определим для него цвет и размер шрифта (рис. 19.10). Форма, созданная на основе данного класса, будет содержать размещенный в классе текст заголовка. Разработчику формы потребуется только изменить текст заголовка, причем будут соблюдены все стандарты на создаваемую форму.
Рис. 19.10. Размещение заголовка формы
- Разместите в форме объект Grid (Таблица) и определите его свойства отображения данных, такие как шрифт, цвет, которые будут стандартными для просмотра данных в табличном виде.
- Установите для объекта Grid (Таблица) значение свойства Readonly (Только чтение) равным True (Истина), так как данную форму предполагается использовать только для просмотра данных.
- Для перемещения по записям, а также для выхода из формы используются кнопки, которые мы также разместим в форме и определим для них действия, выполняемые при нажатии кнопок.
- Законченный вид класса приведен на рис. 19.11. Отметьте, что создание класса аналогично созданию формы.
Рис. 19.11. Класс для просмотра данных в табличном виде