Содержание

Программа представляет собой обучающую игру «посчитай фигуры». Пользователь должен ввести название вида изображенных фигур (круг или квадрат) и их количество в предназначенные для этого поля. Время на выполнение каждого задания ограничено (30 секунд). По истечение этого времени, если пользователь не ввел вариант ответа, выводится сообщение: «Время вышло! Играем заново», — и выдается новое задание. Если ответ был введен, в зависимости от его правильности выводится либо сообщение: «Молодец!», либо сообщение: «Попробуй еще». Пользователь может поменять цвет фигур в любой момент игры. Этот цвет будет использоваться в игре до новой смены пользователем либо до выхода из программы.

Выдержка из текста

1.Заголовок:

procedure TForm1.Action1Execute(Sender: TObject);

Описание:

обработчик события OnExecute действия Action1 компонента ActionList1. Вызывается при нажатии на Button2 (Выход) и при выборе пункта N2 (Выход) главного меню (компонент MainMenu1). Выводит сообщение: «Приходите еще…», — и выполняет закрытие окна программы.

Листинг:

procedure TForm1.Action1Execute(Sender: TObject);

begin

ShowMessage(‘Приходите еще…’);

Close;

end;

Похожие записи