Что происходит между OnClose и OnDestroy ?

← →
BFG9k © (2005-10-28 18:37) [0]

procedure TForm1.OnDestroy(Sender:TObject); begin ShowMessage("DESTOY"); end; procedure TForm1.OnClose(Sender: TObject; var Action: TCloseAction); begin ShowMessage("CLOSE"); end;

Результат работы программы : вылезает сообщение CLOSE и далее происходит ошибка. Вопрос : где она может произойти в таком случае ?

Пробовал делать так :

procedure TForm1.Destroy; begin ShowMessage("DESTROY"); inherited; end;

Результат тот же : CLOSE видим, а DESTROY - нет.

← →
Leonid Troyanovsky © (2005-10-28 18:48) [1]

> BFG9k © (28.10.05 18:37)

> procedure TForm1.OnClose(Sender: TObject; var Action: TCloseAction);
> begin
> ShowMessage("CLOSE");
> end;

> Результат работы программы : вылезает сообщение CLOSE и
> далее происходит ошибка. Вопрос : где она может произойти
> в таком случае ?

Она происходит после OnClose. Но, очевидно, до OnDestroy.

Если б это была не главная форма, то путей после OnClose
было б еще больше (т.е., не все так уж и плохо).

--
Regards, LVT.

← →
BFG9k © (2005-10-28 18:50) [2]

Форма главная. Установил, что ShowMessage в OnDestroy ВООБЩЕ не работает. То есть туда попадает, но сообщение не выскакивает.

← →
Джо © (2005-10-28 18:53) [3]

> [2] BFG9k © (28.10.05 18:50)

По идее, оно должно "выскакивать", но тут же сниматься. Впрочем, сейчас нет времени проверить.

← →
Leonid Troyanovsky © (2005-10-28 18:55) [4]

> BFG9k © (28.10.05 18:50) [2]
> Форма главная. Установил, что ShowMessage в OnDestroy ВООБЩЕ
> не работает. То есть туда попадает, но сообщение не выскакивает.

Т.е., собс-но, куда надо ты попал.

--
Regards, LVT.

Да, ошибку обнаружил, тема закрыта. Для последователей советую использовать OutputDebugString (дебагер не всегда работает корректно).

← →
fellix (2005-10-28 19:02) [6]

Не используй ShowMessage .
Используй MessageBox(0,...<.code> .

Что происходит между OnClose и OnDestroy ? Найти похожие ветки