Вы, вероятно, к настоящему моменту уже уловили последовательность событий. Сперва мы разрабатываем форм}' окна диалога, затем пишем код, который заставляет эту форму работать. После - записываем код в калькулятор закладных, который выполняет диалог и обрабатывает результаты.

Форма Дополнительный капитал (Extra Principal)

Создайте новую форму, используя шаблон стандартного окна диалога из Browse Gallery, удалите кнопку Help и установите свойства формы, как показано в Таблице 9.6.

Затем выберите компонент RadioButton (Переключатель) из палитры компонентов и опустите три из них на форму. Установите их свойства Caption, как показано на Рисунке 9.9, и измените их свойства Name на "rbOnePmt", "rbRangePmts" и "rbAllPmts", соответственно. Установите свойство Checked на кнопке "rbRangePmts" в True, а на остальных двух в False

Нам потребуются три метки и три элемента управления редактированием. Сперва выберите компонент Label и опустите три из них на форму. Назовите их "lblFromPmt", "lblToPmt" и "lblExtraAmt". Затем опустите три компонента Edit на форму, очистите их свойства Text и и імените их свойства Name на "edFromPmt , "edT< >Pmt'' и "edExtraAmt"
Программирование в среде Delphi
Рис. 9.9 Диалоговое окно Дополнительный капитал

После того, как вы выполните эти изменения, используйте инструментальные средства выравнивания и изменения размеров, чтобы расположить компоненты так, как вам нравится. Когда все это проделаете, ваша форма должна выглядеть аналогично Рисунку 9.10.

Прежде чем продолжить, сохраните новый модуль, как EXTRA.PAS.

Таблица 9.6

Изменения для окна диалога Дополнительный капитал Поле Значение

Caption "Дополнительный капитал"

Borderlcons.biMaximize False

Name "ExtraPrinDIg"

Реконфигурирование окна диалога "на лету" в качестве отклика на ввод

Единственной сложной частью этого окна диалога является обработчик событий для трех различных случаев. Что мы собираемся сделать, это прята ib либо отображать две первые метки и окна редактирования, основываясь на том, какой из трех переключателей проверяется. Если проверяется переключатель "Один платеэк", то будут отображаться - первая метка и окно редактирования, a Caption метки изменится на "Платеж*". Если проверяется переключатель "Диапазон платежей", то будут отображаться и метки и окна редактирования, а свойства Caption будут такими, как показано на Рисунке 9.10. И если проверяется кнопка "Все платежи", ни одно из окон не будет отображаться. Окно редактирования "Итог по платежам" отображается всегда.

Программирование в среде Delphi
Рис. 9.10 Окончательная форма Дополнительный капитал.

Это требует не такой большой работы, как может показаться из описания, и Delphi делает эту задачу почти тривиальной. Все, что нам необходимо сделать, это создать обработчик события OnClick для каждого из трех переключателей и ввести код, показанный в Листинге 9.4.

ЛИСТИНГ 9.4 Процедуры событий OnClick переключателей

procedure TExtraPrinDlg.rbOnePmtClick(Sender: TObject) ; begin


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

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



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

  • Декабрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31