Информация

Школа программирования 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 | Просмотров: 15340 | Комментарии: 44 | Рейтинг: 5.0/1

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



Не забывайте писать свои отзывы об уроке Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery. Ваша информация об уроке Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery может помочь другим людям изучить программирование на Delphi. Также не забывайте проставлять рейтинг урока, ведь от этого зависит его попадание в список лучших уроков Delphi
Всего комментариев: 5
0
5 MixNoump   (01.01.2021 22:17) [Материал]
https://booksfactorypdf.weebly.com/donate.html

KW:
Scratched ROBLOX Gift Cards Not Used 2021
Pin For Gift Cards On ROBLOX 2021
ROBLOX Gift Cards Prizes 2021
What Stores Sell ROBLOX Gift Cards 2021

0
4 rardDon   (15.04.2020 16:29) [Материал]
https://billscheatworld.com/ROBLOXHackOnlineUltimate - ULTIMATE GENERATOR for ROBLOX GAME Club BUILDERS AVAILABLE! 2020 APRIL/MAY UPDATED!

KW:
ROBLOX Robux Hack 2020 APRIL UPDATED
ROBLOX Hack No Verification 2020 APRIL UPDATED

0
3 rardDon   (29.10.2019 14:55) [Материал]
hi :) bross :)

0
2 rardDon   (12.10.2019 00:14) [Материал]
hello everyone thanks for approve

0
1 Davidflest   (10.02.2017 08:45) [Материал]
AnabolicsFast Buy Anabolic Steroids Online http://www.anabolicsfast.biz/index.php - Show more...

Имя *:
Email:
Код *: