Разработка приложений в системе Delphi. Шейкер Т.Д. - 68 стр.

    Альтернативный вариант предполагает совмещение пунктов 3 и 4 путём
использования конструкции:
if MyDlg.ShowModal then <операторы> else <операторы>;

    Метод ShowModal выводит на экран модальное окно, а при его закрытии
возвращает результат диалога.
if MyDlg.ShowModal=mrOk
 then begin
       label1.Caption:=MyDlg.Edit1.Text;
       label2.Caption:=MyDlg.Edit2.Text;
      end
 else begin
       MyDlg.Edit1.Text:=st1;
       MyDlg.Edit2.Text:=st2;
      end;

    Следующий пример иллюстрирует анализ свойства ModalResult при
использовании   функции    MessageDlg.    Для   задания   цвета   применяется
стандартное окно ColorDialog, а PrintDialog позволяет организовать печать.

procedure TForm1.MenuScrClick(Sender: TObject);
var res:TModalResult;
begin
  if ColorDialog2.Color<> clWhite then
   begin
    res:=MessageDlg('Цвет фона - не белый'+
     #10#13'Исправить автоматически - Yes'+
     #10#13'Продолжить - OK'+
     #10#13'Отменить печать - Cancel',
      mtWarning,[mbYes,mbok,mbCancel],0);
    if res=mrYes then ColorDialog2.Color:=clWhite;
    if res=mrCancel then exit;
   end;
    if PrintDialog1.execute then
                              begin
                               < операторы вывода на печать >
                              end;
end;


                    6.4. Использование заготовок
    Применение имеющихся в репозитории заготовок позволяет ускорить
разработку приложений. Чтобы воспользоваться заготовкой (шаблоном),
необходимо:


                                     68