Как же проверить, какую кнопку нажал пользователь?
Функция 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 В окно вставляются кнопки Да, Нет и Отмена
Опубликовал Kest
October 29 2008 13:37:59 ·
2 Комментариев ·
19429 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Romeo August 28 2009 16:51:33
Очень и очень неплохо!!!
Ден July 21 2011 17:47:48
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.