Создание класса типа форма

Рассмотрим создание класса для просмотра данных из одиночной таблицы, который содержит кнопки для перемещения по записям и выхода из формы.

Откройте проект 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. Класс для просмотра данных в табличном виде

Содержание раздела