Информация

Школа программирования Delphi

Портал DelphiSchool является бесплатным проектом, обеспечивающим пользователям быстрый и легкий доступ к урокам программирования на Delphi. Сайт позволяет научиться программировать на Делфи любому, кто хочеть писать свои программы, игры, Android приложения, программы для MAC OC или IOS. Кроме уроков Delphi и статей Delphi, на сайте доступны также и видеоуроки. Практически к каждому уроку, пользователю доступен исходник, изучив который, он сможет наглядно посмотреть как работает та или иная программа, написанная на Делфи. Кроме того мы постараемся прилагать к каждому материалу (статье, уроку, видеоуроку) файлы Delphi, которые будут помогать изучить предоставленный материал.

Каждый кто решил написать свою программу, создать свое приложение, научиться программировать и т.д., найдет на DelphiSchool статьи Delphi, уроки Delphi, видеоуроки Delphi, исходники Delphi, файлы Delphi, изучит компоненты Delphi, посмотрит Delphi примеры и многое другое абсолютно бесплатно. Все о Delphi программировании теперь собрано на одном сайте!!!

DelphiSchool

Полезное
Книга
Форма входа
Поиск по сайту
Статистика сайта


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Новости
Рекламный блок
Главная » Уроки Delphi » Основы Delphi » Компоненты Delphi. Начинаем писать свои первые приложения на Delphi

Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery

Вы искали Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery и специально для вас мы подготовили этот урок Delphi. К каждому уроку мы стараемся предоставлять исходники Delphi, поэтому в конце статьи Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery вы можете посмотреть пример Delphi, или код Delphi, что позволит изучить Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery более детально.
Изучайте программирование онлайн на сайте www.DelphiSchool.3dn.ru и освойте основы программирования. Обучение программированию на DelphiSchool это программирование для начинающих и опытных программистов.
Диалоговые окна в 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. Начинаем писать свои первые приложения на Delphi | Добавлено: 05.05.2014 | Просмотров: 31708 | Комментарии: 45 | Рейтинг: 5.0/1

Добавить Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery в закладки:



Не забывайте писать свои отзывы об уроке Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery. Ваша информация об уроке Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery может помочь другим людям изучить программирование на Delphi. Также не забывайте проставлять рейтинг урока, ведь от этого зависит его попадание в список лучших уроков Delphi
Всего комментариев: 141 2 »
0
14 Donaldimapy   (13.04.2025 15:26) [Материал]
Loveshop линк — https://loveshop.top


Как получить доступ на зеркало Лавшоп в новом году

Иногда официальный сайт недоступен из-за блокировок. Именно поэтому используется рабочая ссылка Loveshop, которое даёт безопасный доступ к платформе.

Loveshop ссылка — https://loveshop.top

Что такое Loveshop
Loveshop — это анонимная торговая платформа в Телеграме, где клиенты могут оформлять сделки через телеграм бота. На платформе можно найти разнообразные категории, включая уникальные предложения.

Главное преимущество Loveshop — это анонимность, благодаря чему платформа получила доверие у пользователей.

Как попасть на Loveshop
Для входа к сайту переходите по альтернативному адресу. Ниже — варианты спинтаксом:

Зеркало сайта Loveshop:
loveshop biz

Если главный домен не работает, попробуйте использовать зеркало или Telegram-бот:

Телеграм бот Loveshop:
@loveshop_telegram_bot

Популярные вопросы
? Как очистить историю покупок в Loveshop?
Воспользуйтесь функцией очистки в боте — всё просто и анонимно.

? Как найти зеркало Loveshop?
Проверяйте рабочие ссылки — это лучший метод оставаться в курсе.

Вывод
Лавшоп — это удобный сервис для тех, кто ценит быстрота. Сохраняйте зеркало и заходите в любое время.

0
13 StephenWriNd   (22.06.2024 17:50) [Материал]
Simply desire to say your article is as amazing. The clarity in your post is just excellent and i can assume you are an expert on this subject. Fine with your permission let me to grab your RSS feed to keep updated with forthcoming post. Thanks a million and please continue the gratifying work.
купить диплом медицинского училища
http://fire-team.ru/forum/member.php?u=1143
http://mockwanasvyazi.getbb.ru/viewtopic.php?f=12&t=768
http://driveme.rusff.me/viewtopic.php?id=2069#p105125
https://wiki.mysupp.ru/index.php?title=пїЅпїЅпїЅпїЅпїЅпїЅ_пїЅпїЅпїЅпїЅпїЅпїЅ_пїЅпїЅ_пїЅ_пїЅпїЅпїЅпїЅпїЅпїЅ:_пїЅпїЅпїЅ_пїЅпїЅпїЅпїЅ_пїЅ_пїЅпїЅпїЅпїЅпїЅпїЅ
https://u2c.tv/member.php?u=30984

купить диплом моториста

0
12 Ismaeldon   (22.06.2024 04:01) [Материал]
Do you have a spam issue on this site; I also am a blogger, and I was wanting to know your situation; many of us have created some nice practices and we are looking to trade techniques with other folks, be sure to shoot me an email if interested.
купить диплом в златоусте
http://industrial.getbb.ru/viewtopic.php?f=4&t=3029
http://astrcolcult.ru/?post_type=topic&p=33981
http://dagmir.ru/redirect?url=https://premialnie-diplomans.com/
http://avtoweek2016.ru/poluchite-diplom-vasha-klyuch-k-novyim-vozmozhnostyam/
http://ukrevent.ru/diplomyi-na-zakaz-myi-zdes-chtobyi-pomoch-vam/

купить диплом в орске

0
11 Gichardrox   (20.06.2024 17:51) [Материал]
This is really interesting, You're a very skilled blogger. I have joined your rss feed and look forward to seeking more of your wonderful post. Also, I've shared your web site in my social networks!
купить диплом в сосновом бору
https://wiki.hightgames.ru/index.php/пїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅ_пїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅ_пїЅ_пїЅпїЅпїЅпїЅ_пїЅпїЅпїЅпїЅпїЅпїЅпїЅ:_пїЅпїЅпїЅ_пїЅпїЅпїЅпїЅпїЅпїЅ_пїЅпїЅпїЅпїЅпїЅпїЅ
http://driveme.rusff.me/viewtopic.php?id=2061#p105117
https://www.bodybuilding.net/members/worksale.html
http://www.profirms.ru/%D1%88%D0%B0%D1%85%D1%82%D0%BD%D1%8B%D0%B5-%D1%8D%D0%BB%D0%B5%D0%BA%D1%82%D1%80%D0%BE%D0%B2%D0%BE%D0%B7%D1%8B-%D0%BE%D0%BE%D0%BE-%E2%80%9C%D0%B7%D0%B0%D0%B2%D0%BE%D0%B4-%E2%80%9C%D0%B0%D0%BC%D0%BF%D0%BB%D0%B8%D1%82%D1%83%D0%B4%D0%B0%E2%80%9D/
http://www.fellnasen-service.de/index.php?thread/79167-купить-диплом-ваш-шаг-к-лучшей-карьере-и-профессиональному-признанию/

купить диплом бакалавра

0
10 SLhaneSland   (19.06.2024 13:51) [Материал]
Сегодня, когда диплом становится началом успешной карьеры в любом направлении, многие ищут максимально быстрый и простой путь получения образования. Наличие официального документа об образовании переоценить просто невозможно. Ведь диплом открывает двери перед любым человеком, который хочет начать трудовую деятельность или учиться в университете.
Мы предлагаем максимально быстро получить любой необходимый документ. Вы сможете приобрести диплом, и это становится выгодным решением для всех, кто не смог закончить обучение, потерял документ или хочет исправить плохие оценки. Все дипломы производятся с особой аккуратностью, вниманием к мельчайшим деталям. В итоге вы получите полностью оригинальный документ.
Преимущества данного подхода заключаются не только в том, что вы оперативно получите свой диплом. Процесс организован комфортно, с нашей поддержкой. Начиная от выбора подходящего образца до правильного заполнения личной информации и доставки в любое место страны — все под полным контролем наших мастеров.
Для всех, кто ищет быстрый и простой способ получить необходимый документ, наша компания предлагает отличное решение. Купить диплом - значит избежать длительного процесса обучения и сразу переходить к своим целям: к поступлению в ВУЗ или к началу удачной карьеры.
http://mcpo-ostankino.ru
http://school-10-lik.ru
http://281415.ru
http://nti-nastavnik.ru
http://oskol-sport.ru

0
9 Gichardrox   (19.06.2024 05:42) [Материал]
What's up Dear, are you in fact visiting this site regularly, if so after that you will without doubt get good experience.
купить диплом в миассе
http://spravki-moscow.ru
http://ipuslu.ru
http://konkurs-technokrat.ru

купить диплом массажиста

0
8 StephenWriNd   (18.06.2024 08:32) [Материал]
Hello Dear, are you genuinely visiting this web page on a regular basis, if so afterward you will absolutely get fastidious know-how.
купить диплом геодезиста
http://labrusal.ru
http://irkutsk-arbitr.ru
http://taxiasv.ru

купить диплом в петропавловске-камчатском

0
7 Dichaeldug   (18.06.2024 00:06) [Материал]
Valuable information. Fortunate me I found your website by accident, and I'm stunned why this accident didn't took place in advance! I bookmarked it.
купить диплом
http://taxiasv.ru
http://cceis.ru
http://park-robotov.ru

купить диплом электромонтажника

0
6 StephenWriNd   (17.06.2024 06:07) [Материал]
Hi mates, pleasant piece of writing and fastidious urging commented here, I am genuinely enjoying by these.
купить диплом специалиста
http://1matematiki.ru
http://lawdiplom.ru
http://mixnutrition.ru

купить диплом в барнауле

0
5 FobertRow   (16.06.2024 12:47) [Материал]
Since the admin of this web page is working, no hesitation very quickly it will be well-known, due to its feature contents.
купить диплом в кисловодске
http://sakskiy-rayon.ru
http://dety-tymovsk.ru
http://center-orlvonok.ru

купить диплом в ноябрьске

1-10 11-14
dth="100%" cellspacing="1" cellpadding="2" class="commTable">
Имя *:
Email:
Код *: