Выход из программы

[mihali4]

Послушайте, вы как капризная институтка! То сначала:

если я не хочу искать первую форму, у меня их штук 10

Вам дали конкретный ответ на конкретный вопрос. Так вас потом вдруг осенило:

можно просто закрыть главную форму

Или поболтать захотелось? Так здесь - не чат (пропади они все пропадом)...

[relav_]

To mihali4,Kostia

Почитав в helpe про хальт, стало ясно, что это не слишком корректный выход из программы. Поэтому реализовал, как Вы говорите.
Спасибо всем.

[AnalogXP]

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

Создаю ее так:

   if not assigned(form2) then
       begin
          Application.CreateForm(TForm2, Form2);
          Form2.Show;
       end;

Закрываю ее так:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
      // Тут сохнаняю настройки
      Action := caFree;
      Form2 := nil;
end;

При закрытии Form2 - все в порядке. Но... если закрыть главное, то вторая дохнет без сохранения настроек. Как быть?

[alexBlack]

А если сохранять настройки в Form2.OnDestroy ?

[delphi_beginner]

Очень просто. Сделать так, чтобы во время работы с дочерней формой нельзя было закрыть основную, а именно:

if not assigned(form2) then  
 begin  
     Application.CreateForm(TForm2, Form2);  
      Form2.ShowModal;  //а не Show
 end;

Пока не закроется дочерняя форма, с основной работать будет нельзя.

[mihali4]

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Тут сохнаняю настройки
Action := caFree;
Form2 := nil;
end;

Вот это-то зачем???
Форма получила приказ закрыться и выполняет его, производя необходимое сохранение.
Поскольку вы ее показываете не модально, то вам можно при закрытии главной формы сделать
try
Form2.Close;
Form2.Free;
Да и то это необязательно, поскольку при закрывании приложения все формы убьются как детишки этого приложения.

[AnalogXP]

Задача в том, чтобы, дочернее окно было полностью независимым от родительского. То есть я должен работать и с главной и с дочерней формой одновременно. Если во время работы приложения, я закрываю дочернее окно, а потом снова ее запускаю, то все как надо сохраняется. Если же во время работы обоих окон, я закрываю главное окно, то дочерняя свои настройки не сохраняет. Вот эту проблему я не могу решить. Убрал я эти

Action := caFree;
Form2 := nil;

и ничего, все тоже самое.

Кстате, отделяю дочернюю форму от главной, вот так:

procedure TForm2.FormShow(Sender: TObject);
begin
    SetWindowLong(Handle, GWL_HWNDPARENT, GetDesktopWindow);
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
end;

[B_N]

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

Задача в том, чтобы, дочернее окно было полностью независимым от родительского. То есть я должен работать и с главной и с дочерней формой одновременно. Если во время работы приложения, я закрываю дочернее окно, а потом снова ее запускаю, то все как надо сохраняется. Если же во время работы обоих окон, я закрываю главное окно, то дочерняя свои настройки не сохраняет. Вот эту проблему я не могу решить.

FormClose обрабатывает сообщение WM_CLOSE, которое, вслед за WM_SYSCOMMAND, в конечном счёте, является следствием щелканья по кнопке "закрыть". Форма же, как и любое окно, при "настоящем" закрытии получает WM_DESTROY, WM_NCDESTROY. Отсюда вывод - записывать настройки в соответствующем обработчике - FormDestroy (или OnDestroy, как его там правильно в VCL зовут)

[mihali4]

Вот-вот, а каскадное закрытие окон, о котором я уже упоминал, эту проблему снимает

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