Вниз
Скачать: CL | DM;

Что происходит между 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.


← →
BFG9k ©   (2005-10-28 19:01) [5]

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


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c
2-1131096961
TTeK
2005-11-04 12:36
2005.11.20
подсчёт повторяющихся значений или top 10


14-1130186619
LordOfRock
2005-10-25 00:43
2005.11.20
Меня флудят :(((


14-1130271148
Василий
2005-10-26 00:12
2005.11.20
ShellAPI


1-1130423595
_pioner_
2005-10-27 18:33
2005.11.20
Собственные шрифты в проге


2-1129828890
ASVShade
2005-10-20 21:21
2005.11.20
Знатокам процедур (хотя можно и запрос)




   Наверх