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

Информатика. Программирование в Delphi
111
Рис. 7.2
Выполним следующие действия.
1. Создадим новое приложение. В инспекторе объектов установим сле-
дующие свойства:
− Caption – Средняя температура,
− высота формы – 330,
− ширина формы – 700.
Остальные свойства формы (шрифт, цвет, стиль и т.д.) измените само-
стоятельно.
2. Добавим на форму компонент GroupBox с заголовком Температура.
Добавим на компонент GroupBox компонент Label1 – Первый резервуар,
компонент Label2 – Второй резервуар, компонент Label3 – Третий резервуар
и три компонента Edit (свойство Text – 0).
Добавим на форму компонент Button1 – Добавить и компонент Button2
– Выход (рис. 7.3).
3. Добавим на форму компонент Memo1 (рис. 7.4). Найдем у компонента
Memo1 в инспекторе объектов свойство Lines (массив строк) и нажмем на
кнопку с тремя точками справа. Появится редактор строк String List Editor –
Редактор строк компонента Memo1 (рис. 7.5).
С помощью клавиши BackSpace удалим все строки и нажмем кнопку OK.
Все строки в компоненте Memo1 будут удалены (рис. 7.2). Теперь найдемсвой-
ство ReadOnly – только чтение. Если оно равно True, то в компонент Memo1
нельзя будет вводить текст во время работы приложения. Установим значение
этого свойства в True.
4. Создадим процедуру EditKeyPress для события OnKeyPress для
компонентов Edit . Оформим ее следующим образом. После объявления ком-
понентов, принадлежащих форме Form1, добавим объявление следующей
процедуры.
procedure EditKeyPress(Sender: TObject; var Key: Char);