Пожалуйста помогите разобраться с модальными окнами

[nic1982]

Описание:
Представьте, что есть адресная книга (название и адрес).

Есть три формы:
1) FormMain - главная форма с кнопками добавить/редактировать/удалить и таблицей (название, адрес)
2) FormFind - форма поиска по названию и/или адресу
3) FormView - форма просмотра одной пары название-адрес

Формы FormFind и FormView модальные (вызываются ShowModal).

На форме просмотра FormView есть CheckBox,
который отвечает за открытие формы поиска FormFind при закрытии формы просмотра FormView.

Нужно добиться чтобы при закрытии формы просмотра открывалась форма поиска и так по кругу.
При этом любую из форм просмотра и поиска можно было бы закрыть в любой момент.

test4.zip

[Alex2013]

1 "Идея с пылу жару ": Повесить таймер и проверять в нем флаги "активации диалогов ". (Мда это я "не вник"... )
2 Что мешает просто последовательно вызвать ShowModal из FormView и FormFind в FormMain по очереди ?

Код: Выделить всё

procedure TFormMain.B_OpenFormViewClick(Sender: TObject);
begin
  FormView:= TFormView.Create(nil);
    FormView.ShowModal;
   FormView.Free;

   FormFind:= TFormFind.Create(nil);
    FormFind.ShowModal;
   FormFind.free;
end;

[mig-31]

Я бы добавил try finally

Код: Выделить всё

procedure TFormMain.B_OpenFormViewClick(Sender: TObject);
begin
  FormView:= TFormView.Create(nil);
  try 
    FormView.ShowModal;
  finally  
   FormView.Free;
 end;

   FormFind:= TFormFind.Create(nil);
   try
    FormFind.ShowModal;
   finally
    FormFind.free;
   end;
end;

[Alex2013]

Вообщем по идее как-то так....

Код: Выделить всё

unit UFormMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  UFormView, UFormFind;

type

 { TFormMain }

  TFormMain = class(TForm)
    B_OpenFormView: TButton;
    B_OpenFormFind: TButton;
    procedure B_OpenFormViewClick(Sender: TObject);
    procedure B_OpenFormFindClick(Sender: TObject);
  private

  public

  end;

var
  FormMain : TFormMain;
  FormView : TFormView;
  FormFind : TFormFind;

implementation

{$R *.lfm}

{ TFormMain }

procedure TFormMain.B_OpenFormViewClick(Sender: TObject);
begin
 Application.CreateForm(TFormView, FormView);
  FormView.ShowModal;
   FormView.Free;

 //ИМХО  Нормально без этого куска  ! Но вдруг ....  
{ Application.CreateForm(TFormFind, FormFind);
    FormFind.ShowModal;
   FormFind.free;
 }

end;

procedure TFormMain.B_OpenFormFindClick(Sender: TObject);
begin
 Application.CreateForm(TFormFind, FormFind);
    FormFind.ShowModal;
   FormFind.free;
end;

end.

....

Код: Выделить всё

unit UFormView;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFormView }

  TFormView = class(TForm)
    Button1: TButton;//  Кнопка "Закрыть окно "  
    B_OpenFormFind: TButton;
    procedure B_OpenFormFindClick(Sender: TObject);
  private

  public

  end;

implementation

{$R *.lfm}

uses UFormMain, UFormFind;

{ TFormView }

procedure TFormView.B_OpenFormFindClick(Sender: TObject);
var FormFind0:TForm;
begin
 Application.CreateForm(TFormFind, FormFind0);
   FormFind0.ShowModal;
  FormFind0.Free;
end;

end.

А в FormFind ничего кроме ""пустой кнопки "

Код: Выделить всё

 Button1: TButton;//  Кнопка "Закрыть окно " 

не нужно.
(Разумеется нужно ей выставить правильный ModalResult )
Зы
Все это "отчасти верно" ТОЛЬКО в рамках предложенного макета реальное приложение разумеется будет сложнее, но как "стартовая идея" думаю пригодится и эта кривуля

[iskander]

По-быстрому что-то ничего умнее этого не получилось.

[DedFrend]

То что лежит в test4 не соответствует постановке задачи. Там CheckBox вообще нет.
А по постановке предложил бы так

Код: Выделить всё

  next := true;
  while next do
  begin
     FormFind := TFormFind.Create(self);
     try
        FormFind.ShowModal;
     finally
        FreeAndNil(FormFind);
     end;
     FormView := TFormView.Create(self);
     try
        FormView.ShowModal;
        next := FormView.CheckBox.Checked;
     finally
       FreeAndNil(FormView);
     end;
  end;

[Seenkao]

Нужно добиться чтобы при закрытии формы просмотра открывалась форма поиска и так по кругу.
При этом любую из форм просмотра и поиска можно было бы закрыть в любой момент.

конкретнее. Как я понял, что при закрытии формы открывается другая и при закрытии второй - открывалась первая.

Вопрос! А как вы вообще тогда хотите выходить из этого цикла событий?
P.S. программу не смотрел.

[zub]

Модальные окна - зло

[Снег Север]

Модальные окна - зло

...в неграмотно спроектированных программах

[alexs]

В представленном условии вообще не нужно 2 формы. Логично объединить функционал поиска и просмотра данных в одном месте.

...в неграмотно спроектированных программах

В гранит!

[nic1982]

Всем спасибо, вот то что получилось у меня.

test_of_two_modal_forms.zip

Посмотрите пожалуйста если есть вопросы готов ответить,
а если есть идеи по лутше готов посмотреть.

Добавлено спустя 9 минут 25 секунд:

Модальные окна - зло

Это вызов, который дал мне понять что о том что происходит под капотом я не чего не знаю.

в неграмотно спроектированных программах

Покажите правильно спроектированные программы.

В представленном условии вообще не нужно 2 формы.

Это требование работодателя.

Логично объединить функционал поиска и просмотра данных в одном месте.

Это интересная идея. Над этим мне нужно подумать/попробовать.

[Снег Север]

Покажите правильно спроектированные программы.

Это такая программа, в которой модальные окна не зло, а полезный инструмент.
Ваш Кэп.

[iskander]

nic1982, мне кажется ваше техзадание я выполнил.
В сети есть куча материалов по модальным формам в Delphi.

[olegy123]

Вставлю свой подход:

Код: Выделить всё

TMyModalForm = class (TForm)
public
  class function Open():Boolean;
end;

function TMyModalForm.Open():Boolean;
begin
   Result:=false;
   with Create(nil) do 
   try
     ShowModal;
     if ModalResult=mrOk then  
          Result:=true;
   finally
     Free;
   end;
end;


И где то в программе
   if TMyModalForm.Open Then

[serbod]

Модальные окна - зло

...в неграмотно спроектированных программах

1. Модальное окно содержит свой главный цикл обработки событий, что противоречит самой концепции главного цикла.
2. Модальное окно может "потеряться" под другими окнами, причем на уровне операционной системы.
3. Модальное окно может породить другое модальное окно.
4. Модальное окно может выскочить одновременно в разных приложениях.