Процедуры и функции, реализующие диалоговые окна. - презентация

1 Процедуры и функции, реализующие диалоговые окна

2 Процедура ShowMessage (const Msg:string) Отображает окно сообщения с кнопкой OK. Заголовок содержит название исполняемого файла приложения ShowMessage (Простейшее диалоговое окно);

3 Функция MessageDlg (Msg; AType; AButtons; HelpCtx) Отображает окно сообщения в центре экрана и позволяет получить ответ пользователя

4 Тип окна сообщения (AType): mtWarning (содержит черный восклицательный знак в желтом треугольнике и заголовок Warning) mtError (содержит белый крест в красном круге) mtInformation (содержит букву «i» ) mtConfirmation (синий знак «?») mtCustom (картинки нет, в заголовке – название исполняемого файла)

5 Параметр AButtons задает набор кнопок окна: mbYes mbNo mbOk mbCancel mbHelp mbAbort mbRetry mbIgnore mbAll

6 При нажатии любой из кнопок диалоговое окно закрывается, а результат (свойство ModalResult) возвращается функцией MessageDlg

7 Например: Var rez : ModalResult; Begin If length(Edit1.Text)

8 Функция InputBox (const ACaption, APrompt, ADefault: String): String Отображает диалоговое окно для ввода строки текста. Окно выводится в центре экрана и содержит поле ввода с надписью, а также кнопки OK и Cancel ACaption задает заголовок окна APrompt содержит поясняющий текст к полю ввода ADefault определяет строку, возвращаемую функцией при отказе пользователя от ввода информации

9 Например: procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:=InputBox(Пользователь,Введите фамилию, Иванов); ListBox1.Items.Add(s); end;