Лекция № 16. Использование диалоговых компонентов.

Простое диалоговое окно с кнопкой - ShowMessage(const Msg:string)

П ример. При написании такого кода – ShowMessage(‘Сообщение процедуры ShowMessage ’) появится следующее диалоговое окно:

Разделение сообщения на две строки:   ShowMessage('Hello '+#13#10+'World');

Функция MessageDlg ( const Message : string; DialogType: TMsgDlgType; Buttons : TMsgDlgButtons; HelpContext : Longint ) : Integer; используется для отображения сообщений пользователю. Эти сообщения могут быть информационными, предупреждающими или чтобы то ни было.

mtWarning - Окно замечаний - Отображает символ восклицания mtError - Окно ошибок - Отображает красный "Х"

mtInformation - Информационное окно – Отображает "i" в круге

mtConfirmation - Окно подтверждения - Отображает знак вопроса mtCustom - Окно без значка - Отображает только сообщение .

Даётся полный свободный выбор кнопок, которые пользователь может нажать, чтобы подтвердить диалог.

З начение Buttons может быть одним из следующих перечисленных значений: 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"

Пример.

If  MessageDlg (‘Закончить приложение?’, mtConfirmation, [mbYes, mbNo] ,0) = mrYes then Begin   MessageDlg (‘работа приложения окончена’, mtConfirmation,[mbOk] ,0); Close; End;

Функция InputBox(const Acaption, APrompt, Adefault: String): String - функция Delphi, создает диалоговое окно для ввода строки текста. Окно располагается в центре экрана и содержит в себе поле для ввода с надписью и две кнопки OK и Cancel.

Acaption - параметр, устанавливает заголовок окна выводимый вверху на синем фоне.

APrompt - параметр, задает поясняющий текст на сером фоне.

Adefault - определяет строку текста,  которая будет показана в поле ввода и выделена синим цветом. При вводе текста надпись сразу пропадет. При отказе пользователя от ввода текста, нажатием кнопок ESC и Cancel функция InputBox возвратит этот параметр.

p rocedure TForm1.btn1nputNameClick(Sender: TObject);

var soname : string;

begin

soname := InputBox('Пользователь', 'Введите фамилию', '');

end;

Компоненты OpenDialog и SaveDialog – окна открытия и сохранения файлов.

Находятся на вкладке палитры компонентов Dialogs.

Delphi - диалоги выбора файла сами по себе ничего не делают, а только предоставляют настройки, сделанные пользователем при выборе файла. Самый важный метод Delphi диалогов - Execute. Он срабатывает в момент нажатия кнопки "открыть" или "сохранить" в окне выбора файла.

В обработчике OnClick кнопки "Открыть..." пишем:

 if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Для кнопки "Сохранить" пишем:

if SaveDialog1.Execute then Memo1.Lines.SaveToFile(OpenDialog1.FileName);