Закрыть приложение через дочернюю форму

[Человек Панда]

Здравствуйте.Имею две формы.Базовую сделал неактивной,дочерняя активная.Как при нажатии кнопки закрыть дочерней формы закрыть приложение?И еще вопрос:почему при установке фокуса на дочернюю форму в событии oncreate базовой,фокус остается на базовой форме

[Jaguar83]

Сообщение от Человек Панда

Как при нажатии кнопки закрыть дочерней формы закрыть приложение?

в событии FormClose дочерней формы написать Application.Terminate либо MainForm.Close

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

[Человек Панда]

Главная создается первой.Вот фрагмент кода
procedure TMain.FormCreate(Sender: TObject);
begin
init:=Tregistration_.Create(self);
init.Visible:=True;
init.SetFocus;//вот в чем вопрос,дочерняя форма не получает фокус
end;

[evg_m]

после создания OnCreate идет показ Onshow который вновь возвращает фокус.
1 вар. добавь главной форме данный обработчик обработчик и меняй фокус там.
пользователь легко сможет переключиться на главную форму не выполняя НИКАКИХ действий на дочерней.
2 вар использовать модальный вызов формы
доступ к главной форме возможен только ПОСЛЕ закрытия дочерней.

procedure TMain.FormCreate(Sender: TObject);
begin
init:=Tregistration_.Create(self);
//init.Visible:=True;
//init.SetFocus;//вот в чем вопрос,дочерняя форма не получает фокус
  init.showModal;
end;

[Человек Панда]

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

procedure TMain.FormShow(Sender: TObject);
begin
init.SetFocus
end;

Нужно,оказывается,использовать OnResize,он вызывается после остальных.В нем и меняю фокус.
OnCreate -> OnShow -> OnActivate-> OnPaint -> OnResize -> OnPaint ...
Спасибо всем за ответы.