Стр. 123 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
123
Рис. 8.2
Выполним следующую последовательность действий.
1. Создадим новое приложение
2. Установим следующие свойства компонента Form1 :
− заголовок – Доход по вкладу,
− шрифт – Arial ,
− размер – 10,
− начертание – Жирный,
− стиль границ – bsDialog.
3. Добавим на форму компоненты: Label1 – Сумма, Label2 – Срок
(дней), Label3 – Процентная ставка, Label4 –пустая строка, Edit1, Edit2,
Edit3, Button1 –Вычислить и GroupBox1 – Схема начисления процентов
(рис. 8.2).
4. Добавим на компонент GroupBox1 два компонента RadioButton
(рис. 8.2). Изменим заголовок у компонента RadioButton1 – простые процен-
ты и у компонента RadioButton2 – сложные проценты. Установим значение
свойства Checked компонента RadioButton1 в True.
5. Создадим процедуру Edit1KeyPress компонента Edit1 для обработки
события OnKeyPress. Оформим ее следующим образом.
//процедура выполняется при нажатии клавиши в поле Edit1
procedure Tform1.Edit1KeyPress(Sender: Tobject; var Key: Char);
begin
case key of
//разрешены цифровые клавиши и забой BackSpace
'0'..'9',#8:;
//запятая и точка в числе заменяются на десятичный разделитель
',','.':
begin
// замена на десятичный разделитель
key:=DecimalSeparator;
//запрет на ввод в строку второго десятичного разделителя
if pos(key,Edit1.Text)<>0 then
key:=#0;
end;