[thelv]

Вначале первая(главная) форма скрыта, а 2-я показана. При закрытии 2-й нужно свернуть приложение и сделать видимой первую форму. (Чтобы при нажатии на кнопку приложения в панели задач показалась первая форма)

Делал по-разному, например так:

Project1:

Код:

  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm:=False;
  Application.CreateForm(TForm2, Form2);
  Form2.Show();

Unit2:

Код:

 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Minimize;
  Application.ShowMainForm:=True;
  form1.Visible:=true;
end;

Всё хорошо, но Form1 после этого не сворачивается, при попытке свернуть окно стандартным способом (кнопка в правом верхнем углу окна).
Почему? и как сделать чтоб всё работало?

[NIch]

Код:

// Создание формы
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Скрыть главную форму
  Application.ShowMainForm := False;
  ShowWindow(Application.Handle, sw_Hide);
  ShowWindow(Form_Main.Handle, sw_Hide);
end;

// Закрытие формы
procedure TForm1.FormClose
  (Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(Handle, 'Выйти?',
    'Вопрос', MB_YESNO + MB_ICONQUESTION) = mrYes then
  begin
    //Показать главную форму
    Action := caFree;
    Application.ShowMainForm := True;
    ShowWindow(Application.Handle, SW_RESTORE);
    ShowWindow(Form_Main.Handle, SW_RESTORE);
  end
  else
    Action := caNone;
end;

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

[thelv]

Сообщение от NIch

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

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

Сообщение от NIch

модальная нормально сворачивается

У меня в примере Form1 это главная форма, она то и не сворачивалась, после всех проделанных операций.
А второстепенную форму сворачивать пока не нужно, хотя все равно спасибо.

[NIch]

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

Код:

// Закрытие модальной формы
procedure TForm1.FormClose
  (Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(Handle, 'Выйти?',
    'Вопрос', MB_YESNO + MB_ICONQUESTION) = mrYes then
  begin
    //Показать главную форму
    Action := caFree;
    Application.ShowMainForm := True;
    ShowWindow(Application.Handle, SW_RESTORE);
    ShowWindow(Form_Main.Handle, SW_RESTORE);
    ShowWindow(Form_Main.Handle, SW_MINIMIZE);//Добавь строку
  end
  else
    Action := caNone;
end;

[thelv]

Этот вариант тоже не годится.
Т.к. после закрытия второстепенной формы на доли секунды появляется свернутая Главная форма в левом нижнем углу экрана (над кнопкой Пуск).

[dr. F.I.N.]

Project1

Код:

Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm:=False;
  Application.CreateForm(TForm2, Form2);
  Form2.Show();
  Application.Run;

Unit2

Код:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.ShowMainForm := true;
  Form1.Show;
  Application.Minimize;
end;

Поменял местами пару строк в Unit2. Все работает на ура. Никаких мерцаний и перепрыгиваний форм не наблюдал при десятке опытов Проверил на Delphi6 ибо другого нема.