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

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

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

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

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

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

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

7. Например: Var rez : ModalResult; Begin If length(Edit1.Text)<8 then begin Rez := MessageDlg(‘Неправильная дата!’#10#13’Исправить автоматически?’, mtError, [mbOk, mbNo], 0); If rez = mrOk then Edit1.Text := DateToStr(Date); If rez = mrNo then Edit1.SetFocus; End; End;

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;