[DeOne]

Нужно чтобы, к примеру, при закрытие Form2, закрывалась и Form1, не по нажатию на кнопку, а именно на крестик.

Как такое сделать и в какое событие надо прописывать ?

[poli-smen]

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

Нужно чтобы, к примеру, при закрытие Form2, закрывалась и Form1, не по нажатию на кнопку, а именно на крестик.

Как такое сделать и в какое событие надо прописывать ?

Код:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Close;
end;

[DeOne]

Вылетает ошибка

[poli-smen]

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

Вылетает ошибка

У меня ничего не вылетает. Тоже Delphi 7.
Попробуй ещё так:

Код:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PostMessage(Application.Handle, WM_QUIT, 0, 0);
end;

[DeOne]

Все равно

[DeOne]

Быть может, это потому что у меня Form1 под Hide ?

UPD: Проверил, дело не в этом.

[Yurk@]

DeOne, а ты уверен что к этому моменту твоя Form1 существует ?

[poli-smen]

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

Все равно

Значит ошибка в другом месте. Создай пустой проект с двумя формами и попробуй в нём со второй формы закрыть первую.

[DeOne]

Сообщение от Yurk@

DeOne, а ты уверен что к этому моменту твоя Form1 существует ?

А почему бы ей не существовать ?

[Yurk@]

а почему бы ей существовать если ее могли забыть создать?

[DeOne]

Да, так работает.

Странно, в uses все прописано.

[DeOne]

Сообщение от Yurk@

а почему бы ей существовать если ее могли забыть создать?

Form2 есть, а Form1 нету ?

[NumLock]

http://zalil.ru/33951737

[poli-smen]

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

Да, так работает.

Странно, в uses все прописано.

uses тут непричём. Ты где-то обращаешься из одной формы к другой, когда та уже разрушена.

[Yurk@]

то что она прописана в uses еще не означает что она создана на самом деле ... показывай код или проект

^ NumLock уже решил за тебя)))