8.3.4. Добавление командных кнопок

Для управления работой имитационной модели к форме надо добавить шесть командных кнопок (рис. 8.12).

В модели предусмотрен пример. При нажатии кнопки ПРИМЕР автоматически вводятся исходные данные, курсор устанавливается на кнопке МОДЕЛИРОВАНИЕ. Нажатием этой кнопки переходят к процессу моделирования.

Рис. 8.12.  Стартовая форма имитационной модели

По окончании моделирования для вывода результатов нужно нажать кнопку ВЫВОД. Результаты моделирования появятся в нижней таблице.

Если производилось моделирование примера, а потом нужно выполнить моделирование с другими исходными данными, нажатием кнопки СБРОС можно удалить данные примера и ввести новые. Использование кнопки СБРОС удобно в том случае, если очередной ввод исходных данных требует большого количества изменений. После этого нажать кнопку ВВОД и нажатием кнопки МОДЕЛИРОВАНИЕ перейти к процессу моделирования, по завершении которого нажать кнопку ВЫВОД.

Нажатие на кнопку ВЫХОД ИЗ МОДЕЛИ приводит к завершению работы программы имитационной модели. Закрывается открытая форма приложения.

Кнопки добавляются в форму точно так же, как и другие компоненты. Пиктограмма командной кнопки _2U, находится на палитре стандартных компонентов (см. рис. 8.6). После добавления кнопок с помощью диалогового окна Object Inspector надо установить требуемые значения их свойств (табл. 8.9).

Таблица 8.9. Свойства кнопок стартовой формы имитационной модели
Name	Button1	Button2	Button3	Button4	Button5	Button6
Caption	Ввод	Сброс	Моделирование	Выход из модели	Пример	Вывод
Top	470	470	470	470	470	470
Left	176	96	256	528	16	424
Height	25	25	25	25	25	25
Width	75	75	161	169	75	75

После запуска программы курсор сразу автоматически устанавливается в поле редактирования Edit1 для ввода переменной Средний интервал поступления транспортов. Поэтому в форме указано, что надо сначала ввести данные, потом нажать кнопку ВВОД и только потом кнопку МОДЕЛИРОВАНИЕ.

8.4. События и процедуры обработки событий

8.4.1. События

Вид созданной формы подсказывает, как работает приложение. Очевидно, что пользователь должен ввести значения в поля редактирования, нажать ВВОД и потом щелкнуть кнопку МОДЕЛИРОВАНИЕ. Щелчок на изображении командной кнопки - это пример того, что в Windows называется событием.

Событие - это то, что происходит во время работы приложения. В Delphi у каждого события есть имя, например, щелчок кнопкой мыши это событие OnClick, двойной щелчок - событие onDblClick.

В табл. 8.10 приведены некоторые события Windows.

Реакцией на событие должно быть какое-либо действие. Например, реакцией на событие OnClick, произошедшее на кнопке МОДЕЛИРОВАНИЕ, должен быть переход к запуску имитационной модели. В Delphi реакция на событие реализуется как процедура обработки события. Таким образом, задача программиста состоит в написании необходимых процедур обработки событий.

Поскольку в форму добавлены пятнадцать компонентов, то необходимо разработать для них процедуры обработки событий.

Рассмотрим методику создания процедур обработки событий.

Таблица 8.10. Перечень некоторых событий Windows
Событие	Содержание
OnClick	Происходит при щелчке кнопкой мыши
OnDblClick	Происходит при двойном щелчке кнопкой мыши
OnEnter	Происходит перед тем, как элемент управления действительно получает фокус
OnError	Происходит, когда элемент контроля обнаруживает ошибку и не может вернуть информацию об ошибке вызывающей программе
OnExit	Происходит непосредственно перед тем, как элемент управления теряет фокус
OnKeyDown	Происходит при нажатии на клавишу. События OnKeyDown и OnKeyPress - это чередующиеся, повторяющиеся события, которые происходят до тех пор, пока не будет отпущена удерживаемая клавиша (в этот момент происходит событие OnKeyUp)
OnKeyPress	Происходит, когда пользователь нажимает клавишу, которая генерирует печатаемый символ. Может происходить также при нажатии клавиши печатаемого символа с <Ctrl>. He происходит при нажатии клавиш <Tab>, <Enter>, клавиш перемещения курсора
OnKeyUp	Происходит при отпускании нажатой клавиши
OnMouseDown	Происходит при нажатии кнопки мыши
OnMouseMove	Происходит при перемещении мыши
OnMouseUp	Происходит при отпускании кнопки мыши