Реклама
|
|
|
|
|
|
Популярные статьи
|
|
|
|
|
|
Сейчас на сайте
|
|
 Гостей: 10
На сайте нет зарегистрированных пользователей
Пользователей: 13,372
новичок: vausoz
|
|
|
Новости
|
|
|
|
|
|
|
Реклама
|
|
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian
Файл записей с выводом обратного заголовка на Turbo Pascal
Моделирование интернет кафе на GPSS + Отчет
Принадлежит ли точка пересечению двух окружностей на Turbo Pascal + Отче...
|
|
| Всплывающие сообщения (Showmessage) с вопросом (да, нет, повторить) |
С помощью функции
face="Courier New">ShowMessage
выводятся на экран сообщения с
заголовком имени проекта, без красивых значков и
беззвучно.
align=justify>
align=justify>Более красивые сообщения
можно выводить на экран с помощью функции
face="Courier New" size=2>
lang=en-us>Application.MessageBox
face=Arial size=2>.
align=justify>
align=justify>Функция
size=2>
face="Courier New">Application.MessageBox
face=Arial> имеет следующий
формат:
align=justify>
face="Courier New">Application.MessageBox (Text, Title,
Flags)
align=justify>где:
align=center>
align=left>Text -
текст, появляющийся в окне сообщения. Тип:
lang=en-us>String.
align=left>Title -
заголовок окна сообщения.
Тип: String.
align=left>Flags -
одно значение либо сумма значений. Значения перечислены
ниже.
align=left>Функция
lang=en-us>Application.MessageBox вызывает значение
типа Longint.
height=232 cellSpacing=0 cellPadding=0 width=562 border=1>
size=2>Значение |
Описание
значения |
lang=en-us>mb_AbortRetryIgnore |
В окно
вставляются кнопки Прервать,
Повтори Пропустить |
size=2>mb_Help |
size=2>Вставляется кнопка
lang=en-us>Help |
size=2>mb_IconAsterisk |
Слева от
текста вставляется картинка с буквой i
в кружке (информация) |
size=2>
lang=en-us>mb_IconExclamation |
size=2>Вставляется картинка с восклицательным знаком в
треугольнике (ошибка) |
size=2>mb_IconHand |
size=2>Вставляется картинка со знаком крестика
(критическая ошибка) |
size=2>mb_IconQuestion |
size=2>Вставляется картинка со знаком
вопроса |
size=2>mb_Ok |
size=2>Вставляется кнопка
lang=en-us>OK |
size=2>mb_OkCancel |
size=2>Вставляются кнопки OK и
Отмена |
size=2>mb_RetryCancel |
В окно
вставляются кнопки Повтор и Отмена |
size=2>mb_YesNo |
В окно
вставляются кнопки Да и Нет |
size=2>mb_YesNoCancel |
В окно
вставляются кнопки Да, Нет и Отмена |
|
| |
align=left>
align=center>Пример функции
lang=en-us>Application.MessageBox:
align=center>
align=left>
lang=en-us>Application.MessageBox ('Ошибка
ввода!!!', 'Ошибка',
mb_OkCancel + mb_IconExclamation);
align=center>Ещё один пример
функции:
align=left>
lang=en-us>Application.MessageBox ('Отсутствует
требуемый файл!!!', 'Ошибка
lang=en-us>', mb_AbortRetryIgnore +
mb_IconHand)
align=center>Как же проверить, какую
кнопку нажал пользователь?
align=left>Функция
lang=en-us>Application.MessageBox возвращает следующие
значения:
height=169 cellSpacing=0 cellPadding=0 width=347 align=left
border=1>
Значение |
Описание |
lang=en-us>idAbort |
Была нажата кнопка
Прервать |
lang=en-us>idCancel |
Была нажата кнопка
Отмена |
lang=en-us>idIgnore |
Была нажата кнопка
Пропустить |
lang=en-us>idOk |
Была нажата кнопка
OK |
lang=en-us>idNo |
Была нажата кнопка
Нет |
lang=en-us>idRetry |
Была нажата кнопка
Повтор |
lang=en-us>idYes |
Была нажата кнопка
Да |
|
|
height=4> |
align=left>
align=center>
align=center>
align=center>
align=justify>Сейчас будет приведён
пример фрагмента программы, который иллюстрирует, как можно
использовать функцию
lang=en-us>Application.MessageBox и как можно
проверить, какую кнопку нажал пользователь.
align=left>
face="Courier New">A := Application.
face="Courier New">MessageBox
('Нажмите на какую-нибудь кнопку',
'Фрагмент программы', mb_YesNoCancel
+ mb_IconAsterisk);
align=left>
face="Courier New" color=#003399>If (A = idYes)
then
align=left>
lang=en-us> ShowMessage('Вы нажали на кнопку
Да')
align=left>
face="Courier New" color=#003399>Else If (A = idNo)
then
align=left>
lang=en-us> ShowMessage('Вы нажали на кнопку
Нет')
align=left>
face="Courier New" color=#003399>Else If (A = idCancel)
then
align=left>
lang=en-us> ShoeMessage('Вы нажали на кнопку
Отмена');
align=center>Описание фрагмента
программы:
align=justify>
face=Arial style="font-size: 10pt">Вначале переменной A
присваивается значение функции
face="Courier New" size=2>
lang=en-us>Application.MessageBox.
После нажатия на
какую-нибудь кнопку появляется сообщение, какую кнопку нажал
пользователь. |
Главная
Каталог файлов
