Закрытие приложения.

[docbrain]

Доброе время суток.
Создавая одну программу я зашел в тупик, помогите мне оттуда выбраться.
Я создаю программу в Delphi, которой существуют две формы, одна родительская, другая дочерняя. На дочерней находится окно TEdit, в которое вводятся данные, которые отсылаются в такой же компонент на родительской форме. Оттуда эти данные получает обработчик события главной (родительской) формы OnCloseQuery, проверяет и если они верны выключает приложение. Проблема только в том что на практике это не работает. Вот мой код:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
PassKey : Integer;
begin
PassKey := StrToInt(Edit1.Text);
if PassKey = 123 then
Close;
end;

Заранее благодарю.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[mihali4]

Application.Terminate

[docbrain]

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

[mihali4]

А CanClose кто будет указывать ?
А.С. Пушкин(д) ?

[docbrain]

CanClose

? Нельзя ли поконкретней?

[mihali4]

В стандартный хэлп заглянуть неохота ? А зря...

CanClose:=True;

Разрешаем закрыться...

[Stilet]

Попробовал. Все равно не работает.

Все работает. Application.Terminate в любом случае можно заменять на команды halt или ExitProcess, если онная не нравится.

[evg_m]

а когда вызывается TMainForm.FormCloseQuery?
ответ. при инициализации закрытия формы TMainForm
а она у тебя где-нибудь закрыватся ?
телепатор подсказывает что НЕТ.
так что и проверки нет, все логично.

[docbrain]

Да я понял, что тут лучше всего использовать какой-нибудь активный обработчик события. На пока вроде разобрался. Всем спасибо. Если будут проьлемы - обращусь.