Следующим шагом - выберите компонент Label снова и поместите еще четыре метки на форму в колонку справа от меток, которые вы только что добавили. Эти метки будут отображать фактическую информацию, т.е. параметры закладной, которая должна быть отображена. Измените их свойства, как показано в Таблице 9.3.

Последним компонентом, который следует добавить, является StringGrid, и он будет отображать амортизационную таблицу. Выберите StringGrid из дополнительной страни цы (Additional page) палитры компонентов и опустите его на вашу форму сразу под меткой "Номера платежей". Измените его свойства, как показано в Таблице 9.4.

ColCount дает нам семь колонок - по одной для каждого поля, которое калькулятор закладных отображает для каждого платежа. DefaultColWidth (Ширина колонки по умолчанию) в 92 пиксела обеспечивает достаточно места для отображения достаточно большого числа, a Width - в 669 (полученное методом проб и ошибок) - как раз подходящий размер для того, чтобы поместить семь колонок и вертикальную линейку прокрутки. Установка goThumbTracking - в значение True - заставляет пролистываться содержимое сетки при перемещении бегунка линейки прокрутки. При установке его в значение False отображаемое содержимое сетки не изменяется до тех пор, пока бегунок не освобождается. Visible устанавливается в False, чтобы сетка не отображалась при запуске программы. Обратите внимание, что мы не установили свойство Height (Высота) компонента StringGrid. Мы собираемся получить программу, которая изменяет его автоматически при запуске и при всех изменениях размеров формы. После того, как вы сделали эти изменения, ваша форма калькулятора закладных должна выглядеть так, как показано на Рисунке 9.3.

Таблица 9.3

Изменения свойств для информационных меток

Имя

Заголовок

IbIMortgageAmt

"$0.00"

IbllRate

"0.00%"

IbIPaymentAmt

"$0.00

IblNumPmts

"0"
Программирование в среде Delphi
Рис. 9.3 Законченная форма калькулятора закладных.

Таблица 9.4

Изменения свойств для компонента БтттдСпс!

Поле

Значение

ColCount

DefaultColWidth

Left

Name

"MortgageGrid"

Options.goThumbTracking

True

ScrollBars

ssVertical

Visible

False

Width

Запуск на выполнение и выход

Теперь, когда мы получили разработанную главную форму, мы можем начать добавление свойств. Первое, что необходимо сделать, это чтобы кнопка Выйти (Quit) действительно осуществляла выход из программы. Дважды щелкните на кнопке Quit в SpeedButton, чтобы автоматически создать процедуру управления событием OnClick. Добавьте следующую строку:

Close;

между зарезервированными словами begin и end в обработчик события. Это возьмет на себя заботу о выходе из программы, когда вы нажимаете кнопку Выйти.

Нам необходимо также добавить к форме переменную TMortgage, чтобы нам было что отображать в StringGrid. В окно Unit добавьте следующую строку:

Mortgage : TMortgage;

в раздел private (приватный) определения class (класс) формы. Добавьте также MortLib к списку модулей в операторе uses в начале программы. Затем создайте обработчик события OnCreate для формы и добавьте следующую строку:


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в среде Delphi



Новости за месяц

  • Январь
    2022
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс