Уроки Delphi
-
Основы Delphi
- Основы программирования на Delphi
- Компоненты Delphi. Начинаем писать свои первые приложения на Delphi
- Основные принципы программирования в Delphi. Начинаем программировать самостоятельно
- Delphi и Microsoft Word
- Delphi и Microsoft Excel
- Delphi и Microsoft Access
- Delphi и OpenOffice Writer
- Delphi и OpenOffice Calc
- Создание игр на Delphi
- Игра Пристрели птичку
Delphi и MSOffice
Delphi и OpenOffice
Delphi и Интернет
Delphi и игры
Delphi Android
Информация
Школа программирования Delphi
Портал DelphiSchool является бесплатным проектом, обеспечивающим пользователям быстрый и легкий доступ к урокам программирования на Delphi. Сайт позволяет научиться программировать на Делфи любому, кто хочеть писать свои программы, игры, Android приложения, программы для MAC OC или IOS. Кроме уроков Delphi и статей Delphi, на сайте доступны также и видеоуроки. Практически к каждому уроку, пользователю доступен исходник, изучив который, он сможет наглядно посмотреть как работает та или иная программа, написанная на Делфи. Кроме того мы постараемся прилагать к каждому материалу (статье, уроку, видеоуроку) файлы Delphi, которые будут помогать изучить предоставленный материал.
Каждый кто решил написать свою программу, создать свое приложение, научиться программировать и т.д., найдет на DelphiSchool статьи Delphi, уроки Delphi, видеоуроки Delphi, исходники Delphi, файлы Delphi, изучит компоненты Delphi, посмотрит Delphi примеры и многое другое абсолютно бесплатно. Все о Delphi программировании теперь собрано на одном сайте!!!
Полезное
Книга
Поиск по сайту
Статистика сайта
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Новости
Рекламный блок
| Главная » Уроки Delphi » Основы Delphi » Компоненты Delphi. Начинаем писать свои первые приложения на Delphi |
Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery
 В прошлых уроках к примеру Delphi и TButton. Учимся работать с кнопкой в Delphi. Часть 2. События кнопки мы ознакомились с компонентом TButton и при написании обработчика события кнопки использовали для вывода сообщения процедуру ShowMessage. Поэтому, в этом уроке, предлагаю ознакомиться с основными процедурами и функциями для реализации диалоговых окон, и пример их использования. Процедура ShowMessage, а также функции MessageDlg и MessageDlgPos отображают окно (панель) вывода сообщений. а функции InputBox и InputQuery отображают окно (панель) для ввода информации. Процедура ShowMessage Процедура ShowMessage (const Msg: String) отображает окно сообщения с кнопкой ОК. Заголовок этого окна содержит название исполняемого файла приложения, а строка Msg выводится как текст сообщения. В уроке Delphi и TButton. Учимся работать с кнопкой в Delphi. Часть 2. События кнопки, посвященному компоненту Delphi TButton (кнопка), используя ShowMessage, мы выводили на экран сообщение "Теперь кнопка Закрыть приложение активна". Для примера давайте создадим новый проект и разместим на нем 5 кнопок (TButton). Как это делать мы уже знаем. У первой кнопки изменим заголовок (свойство Caption) на "ShowMessage", у второй на "MessageDlg", у третьей на "MessageDlgPos", у четвертой на "InputBox" и у пятой на "InputQuery". Свойство Width у всех этих кнопок изменим на 100. И естественно дадим кнопкам понятные имена, для этого поменяем у кнопок свойство Name на "ShowMessageButton", "MessageDlgButton", "MessageDlgPosButton", "InputBoxButton" и "InputQueryButton". Теперь давайте создадим обработчик события OnClick для кнопки ShowMessageButton и в нем напишем следующее: Код ShowMessage('Это простое диалоговое окно.'); Полностью наша процедура будет выглядеть так: Код procedure TForm1.ShowMessageButtonClick(Sender: TObject); begin ShowMessage('Это простое диалоговое окно.'); end; Давайте скомпилируем и запустим нашу программу. Перед нами появится форма с 5-ю кнопками. Если нажать на кнопку ShowMessage, то перед нами появится сообщение "Это простое диалоговое окно".  Рисунок. Окно сообщения с кнопкой ОК, вызываемое процедурой ShowMessage Поскольку название нашего проекта мы не меняли, то он у нас называется Project1 и соответственно в заголовке этого окна мы видим это имя. Функция MessageDlg Функция MessageDlg(const Msg: String; AType: TMsgDlgType; AButtons: TMsgDlgButtons; Helpctx: Longint) : word отображает окно сообщения в центре экрана и позволяет получить ответ пользователя. Параметр Msg содержит отображаемое сообщение. Окно сообщения может относиться к различным типам и наряду с сообщением содержать картинки. Тип окна сообщения определяется параметром АТуре, который может принимать следующие значения: mtWarning - окно содержит черный восклицательный знак в желтом треугольнике и заголовок Warning; mtError - окно содержит белый косой крест в красном круге и заголовок Error; mtInformation - окно содержит синюю букву «i» в белом круге и заголовок Information; mtConfirmation - окно содержит синий знак «?» в белом круге и заголовок Confirmation; mtCustom - окно не содержит картинки, в заголовке выводится название исполняемого файла приложения. Параметр AButtons задает набор кнопок окна и может принимать любые комбинации следующих значений: mbYes (кнопка Yes); mbAbort (кнопка Abort); mbNo (кнопка No); mbRetry (кнопка Retry); mbOk (кнопка OK); mbIgnore (кнопка Ignore); mbCancel (кнопка Cancel); mbAll (кнопка All); mbHelp (кнопка Help); Для значения параметра AButtons имеются две константы - mbYesNoCancel и mbOKCancel, задающие предопределенные наборы кнопок: mbYesNoCancel = [mbYes, mbNo, mbCancel]; mbOKCancel = [mbOK, mbCancel] При нажатии любой из указанных кнопок (кроме кнопки Help) диалоговое окно закрывается, а результат (свойство ModalResult) возвращается функцией MessageDlg. Параметр HelpCtx определяет контекст (тему) справки, которая появляется во время отображения диалогового окна при нажатии пользователем клавиши F1. Обычно! значение этого параметра равно нулю. Ниже приведен пример использования функции MessageDlg: Код procedure TForm1.MessageDlgButtonClick(Sender: TObject); var rez : TModalResult; begin rez := MessageDlg('Перед вами пример использования функции MessageDlg?', mtError, [mbOk, mbNo], 0); // выводим сообщение об ошибке с кнопками OK и NO if rez = mrOk then ShowMessage('Вы согласились'); // если нажали ОК, то появляется сообщение о том что мы согласились if rez = mrNo then ShowMessage('Вы не согласились'); // если нажали NO, то появляется сообщение о том что мы не согласились end;  Рисунок. Диалоговое окно при использовании функции MessageDlg Функция MessageDlgPos Функция MessageDlgPos(const Msg: String; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer) : Word отличается от функции MessageDlg наличием параметров Х и Y, управляющих положением окна на экране. Давайте немного изменим предыдущий пример и получим: Код procedure TForm1.MessageDlgPosButtonClick(Sender: TObject); var rez : TModalResult; begin rez := MessageDlgPos('Перед вами пример использования функции MessageDlgPos?', mtConfirmation, [mbOk, mbNo], 0, 0, 0); // диалоговое окно выводится с координатfvb X=0 и Y=0 if rez = mrOk then ShowMessage('Вы согласились'); // если нажали ОК, то появляется сообщение о том что мы согласились if rez = mrNo then ShowMessage('Вы не согласились'); // если нажали NO, то появляется сообщение о том что мы не согласились end;  Рисунок. Диалоговое окно при использовании функции MessageDlgPos Функция InputBox Функция InputBox(const ACaption, APrompt, ADefault: String): String отображает диалоговое окно для ввода строки текста. Окно выводится в центре экрана и содержит поле ввода с надписью, а также кнопки ОК и Cancel. Параметр ACaption задает заголовок окна, а параметр APrompt содержит поясняющий текст к полю ввода. Параметр ADefault определяет строку, возвращаемую функцией при отказе пользователя от ввода информации (нажатие кнопки Cancel или клавиши Esc). Ниже приведен пример использования функции InputBox: Код procedure TForm1.InputBoxButtonClick(Sender: TObject); var pas : string; begin pas := InputBox('Авторизация', 'Введите пароль', '********'); // Выводим Диалоговое окно, которое запрашивает пароль if pas = '123' then ShowMessage('Пароль принят'); if pas <> '123' then ShowMessage('Пароль не правильный'); end;  Рисунок. Пример использования функции InputBox Функция InputQuery Функция InputQuery (const ACaption, APrompt: String; var Value: String): Boolean отличается от функции InputBox тем, что вместо третьего параметра - строки по умолчанию - используется параметр Value, который в случае подтверждения ввода содержит введенную пользователем строку. В качестве результата функция возвращает логическое значение, позволяющее определить, каким образом завершен диалог. Если нажата кнопка ОК, то функция возвращает значение True, если нажата кнопка Cancel или клавиша Esc - значение False. В нижеприведенном примере показано использование функции InputQuery: Код procedure TForm1.InputQueryButtonClick(Sender: TObject); var name: string; begin name := 'Введите имя'; InputQuery('Пользователь', 'Введите фамилию', name); // Выводим диалоговое окно в котором нас просят ввести Имя ShowMessage('Вы ввели '+name); // Выводим сообщение с тем именем которое мы ввели end; К уроку (статье) Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery прилагается исходник, посмотрев который, вы можете ознакомиться с полным исходным кодом программы и посмотреть как работает созданная программа. Исходный код сопровождается комментариями, благодаря чему вы сможете легко в нем разобраться. Но я настоятельно рекомендую делать все самостоятельно. Так вы лучше и быстрее усвоите то, о чем говорилось в этом уроке Для того чтобы получить возможность скачать исходник Delphi к этому уроку, необходимо посетить сайт рекламодателя. После этого, появится ссылка на исходник Delphi к уроку Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery | |
Добавить Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery в закладки: |
Популярные уроки (TOP 10 уроков Delphi):
| Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery |
| Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi |
| Delphi и TButton. Учимся работать с кнопкой в Delphi. Часть 2. События кнопки |
| Delphi и RadioGroup. Пример работы с группой компонентов RadioButton в Делфи |
| Delphi и TEdit. Пример работы со строками ввода в Делфи |
| Delphi и ComboBox. Пример работы с ниспадающими списками в Делфи |
| Массивы в Delphi. Пример работы с массивами в Делфи |
| Константы в Delphi. Объявление констант в Делфи |
| Delphi и TPanel. Пример работы с панелями в Делфи |
| Управление циклами в Delphi. Операторы Continue и Break. |
Не забывайте писать свои отзывы об уроке Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery. Ваша информация об уроке Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery может помочь другим людям изучить программирование на Delphi. Также не забывайте проставлять рейтинг урока, ведь от этого зависит его попадание в список лучших уроков Delphi
0