С помощью функции ShowMessage выводятся на экран сообщения с заголовком имени проекта, без красивых значков и беззвучно.
Более красивые сообщения можно выводить на экран с помощью функции Application.MessageBox.
Пример функции Application.MessageBox:
Application.MessageBox ('Ошибка ввода!!!', 'Ошибка', mb_OkCancel + mb_IconExclamation);
Данная функция вызовет такое сообщение:
Ещё один пример функции:
Application.MessageBox ('Отсутствует требуемый файл!!!', 'Ошибка', mb_AbortRetryIgnore + mb_IconHand)
Данная функция вызовет такое сообщение:
Как же проверить, какую кнопку нажал пользователь?
Функция Application.MessageBox возвращает следующие значения:
Значение
Описание
idAbort
Была нажата кнопка Прервать
idCancel
Была нажата кнопка Отмена
idIgnore
Была нажата кнопка Пропустить
idOk
Была нажата кнопка OK
idNo
Была нажата кнопка Нет
idRetry
Была нажата кнопка Повтор
idYes
Была нажата кнопка Да
Сейчас будет приведён пример фрагмента программы, который иллюстрирует, как можно использовать функцию Application.MessageBox и как можно проверить, какую кнопку нажал пользователь.
A := Application.MessageBox ('Нажмите на какую-нибудь кнопку', 'Фрагмент программы', mb_YesNoCancel + mb_IconAsterisk);
If (A = idYes) then
ShowMessage('Вы нажали на кнопку Да')
Else If (A = idNo) then
ShowMessage('Вы нажали на кнопку Нет')
Else If (A = idCancel) then
ShoeMessage('Вы нажали на кнопку Отмена');
Описание фрагмента программы:
Вначале переменной A присваивается значение функции Application.MessageBox.
Появляется такое окно:
После нажатия на какую-нибудь кнопку появляется сообщение, какую кнопку нажал пользователь.
Функция Application.MessageBox имеет следующий формат:
Application.MessageBox (Text, Title, Flags)
где:
Text - текст, появляющийся в окне сообщения. Тип: String.
Title - заголовок окна сообщения. Тип: String.
Flags - одно значение либо сумма значений. Значения перечислены ниже.
Функция Application.MessageBox вызывает значение типа Longint.
Значение
Описание значения
mb_AbortRetryIgnore В окно вставляются кнопки Прервать, Повтори Пропустить
mb_Help Вставляется кнопка Help
mb_IconAsterisk Слева от текста вставляется картинка с буквой i в кружке (информация)
mb_IconExclamation Вставляется картинка с восклицательным знаком в треугольнике (ошибка)
mb_IconHand Вставляется картинка со знаком крестика (критическая ошибка)
mb_IconQuestion Вставляется картинка со знаком вопроса
mb_Ok Вставляется кнопка OK
mb_OkCancel Вставляются кнопки OK и Отмена
mb_RetryCancel В окно вставляются кнопки Повтор и Отмена
mb_YesNo В окно вставляются кнопки Да и Нет
mb_YesNoCancel В окно вставляются кнопки Да, Нет и Отмена