Работа с диалоговыми окнами

Автор: | 16.02.2013

Вывод диалогового окна с кнопкой ок и текстом - ShowMessage('Информационное '+#13#10+'сообщение');  Примечание: данная команда приостанавливает выполнение других команд пока не будет нажата кнопка ок,разбиение текста на несколько строчек происходит с помощью команды - +#13#10+ если нужна одна строчка команда упускается
Выводит присвоенное чему либо какое-то значение в маленьком окне - ShowMessage(IntToStr(X)); // var X : Integer, иначе может быть ошибка компиляции.
Вывод окна ввода с предложением ввести значение переменной (задается тут же) - s:=InputBox('Фунты-килограммы','Введите вес в фунтах','0');
Для строковой переменной типа String - ShowMessage(X); Будет выводиться значение присвоенное иксу. X должен быть переменной типа String.

// Отображение диалога с подтверждением
buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0); // var buttonSelected : Integer;

// Показ типа выбранной кнопки
if buttonSelected = mrOK     then ShowMessage('Была нажата OK');
if buttonSelected = mrCancel then ShowMessage('Была нажата Cancel');

mtWarning - Отображает символ восклицания
mtError - Отображает красный "Х"
mtInformation - Отображает "i" в круге
mtConfirmation - Отображает знак вопроса
mtCustom - Отображает только сообщение

mbYes - Отображает кнопку "Yes"
mbNo - Отображает кнопку "No"
mbOK - Отображает кнопку "OK"
mbCancel - Отображает кнопку "Cancel"
mbAbort - Отображает кнопку "Abort"
mbRetry - Отображает кнопку "Retry"
mbIgnore - Отображает кнопку "Ignore"
mbAll -    Отображает кнопку "All"
mbNoToAll - Отображает кнопку "No to all"
mbYesToAll - Отображает кнопку "Yes to all"
mbHelp - Отображает кнопку "Help"

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *