Теоретическая часть.
Функция InputBox()
Функция InputBox() позволяет вводить данные с помощью диалоговой панели ввода. Аргументами этой функции являются три строки, а значением функции является строка по умолчанию или строка, введенная пользователем. Синтаксис функции следующий:
Переменная:=InputBox('Заголовок','Подсказка',['ЗначениеПоУмолчанию'])
В процессе выполнения этой функции появляется диалоговое окно с текстовым полем:
· в строке заголовка панели будет печататься значение первого аргумента 'Заголовок';
· на самой панели печатается значение второго аргумента 'Подсказка';
· в текстовом поле печатается значение аргумента 'ЗначениеПоУмолчанию' (если это значение отсутствует, содержимое текстового окна также отсутствует).
Диалоговое окно ввода функции InputBox()
Если пользователь щелкнет по кнопке ОК, то значением функции станет строка, введенная пользователем в текстовом поле. Если пользователь щелкнет по кнопке Cancel, то значением функции станет строка 'ЗначениеПоУмолчанию'.
Функция MessageDlg()
Функция MessageDlg() позволяет выводить сообщения не на форме, а на специальной панели сообщений, на которой можно разместить определенный набор кнопок и информационный значок о типе сообщения. Кроме того, функция MsgBox() получает определенное значение, которое может быть присвоено целочисленной переменной. Синтаксис функции следующий:
Переменная:=MessageDlg('Сообщение',Тип,[Кнопки],Справка);
Аргумент 'Сообщение ' выводится на окно сообщений.
Аргумент Тип задается именованной константой и определяет вид информационного значка, который помещается на окно сообщений.
Таблица. Константы, задающие тип панели сообщений
Аргумент Кнопки задается набором именованных констант, разделенных запятыми и заключенными в квадратные кнопки, и определяет набор кнопок, размещаемых на панели.
Таблица. Константы, определяющие набор кнопок на панели сообщений
Константа | Набор кнопок |
mbOk | ОК |
mbYes | Да |
mbNo | Нет |
mbOkCancel | ОК, Отмена |
mbAbortRetryIgnore | Стоп, Повтор, Пропустить |
mbYesNoCancel | Да, Нет, Отмена |
Аргумент Справка - параметр, определяющий раздел справочной системы, который вызывается нажатием клавиши { F1 }. Если вывод справки не предусмотрен, то значение аргумента Справка должно быть равно 0.
Например: MessageDlg('Сообщение',MtWarning,mbYesNoCancel,0) будет выведена следующая окно сообщений:
Диалоговое окно сообщений функции MessageDlg()
Нажатие на кнопку приводит к вычислению значения функции, которое зависит от нажатой кнопки. Значение, возвращаемое функцией MessageDlg(), позволяет определить, какая из кнопок была нажата.
Таблица. Значения функции MessageDlg()
Нажатая кнопка | Значения функции |
ОК | idOk |
Да | idYes |
Нет | idNo |
Отмена | idCancel |
Стоп | idAbort |
Повтор | idRetry |
Пропустить | idIgnory |
Практическаячасть.
Проект: «Проверка знаний»
Задание 1
1. Откройте Delphi (пуск – все программы – BorlandDelphi 6 – Delphi 6)
2. Откройте сетевое окружение – рабочая папка на 1-7 – Мурашов В.С. – 10 б и создайте папку под своей фамилией
3. В этой папке создайте папку с названием практическая работа 1
4. Сохраните проект в эту папку, выбрав в Delphi файл – сохранить всё.
5. Из палитры компонентов перетащите объект Button (нажмите левой кнопкой мыши на Button, затем левой кнопкой мышки нажмите в любом месте Формы
6. Перейдите в Инспекторе Объектов измените Свойства объекта Button:
Caption: Проверказнаний
Height: 100
Width: 100
Left: 50
Top: 100
7. Перейдите в События объекта Button1, найдите там OnClick и двойным нажатием левой кнопки мышки на поле рядом с названием события, создайте обработчик события нажатия на кнопку
8. Впишите следующий код
9. Запустите программу, нажав на кнопку Run (панель быстрого доступа) или F9 на клавиатуре.