Как закрыть главную форму?

← →
Igor_ © (2002-02-28 10:16) [0]

Запускается таймер и при достижении определенного значения надо закрыть все приложение. Таймер находится в DataModule, главная форма - MDI (если это имеет значение). Код такой:
procedure TDM.Timer1Timer(Sender: TObject); begin Timer1.Tag:=Timer1.Tag-1; if (Timer1.Tag <= 0)then begin FormMain.Close; exit; end; end;
При пошаговой отладке событие FormMain onClose вызывается, после этого попадаем в TDM.Timer1Timer на строку где exit, выходим из TDM.Timer1Timer - потом ошибка Exeption EOSError in module...
System Error Code 87.

Как привильно закрыть программу?

← →
Fellomena (2002-02-28 10:31) [1]

SendMessage(Application.MainForm, WM_CLOSE, 0, 0);

← →
Юрий Зотов © (2002-02-28 11:15) [2]

Application.MainForm.Close

← →
RoadStar © (2002-02-28 13:14) [3]

Halt;
Киляет все нафиг!!!

← →
alexanderK (2002-02-28 14:12) [4]

Application->Terminate(); // C++Builder

← →
Sasha9 © (2002-02-28 14:17) [5]

2alexanderK
не только C++Builder

← →
Набережных С. (2002-02-28 16:15) [6]

PostMessage(FormMain.Handle,WM_CLOSE,0,0);

чуть пишется в Дельфх подругому:
Application.Terminate
А вот сообщение послать это оригинально.

Иногда при посылке сообщений самой форме могут быть проблемы, самый надежный способ, как выяснилось путем проб и т.д., нарисовать на форме кнопку закрывающую форму, сделать ее невидимой а потом посылать ей два подряд сообщения:
SendMessage( кнопка.Handle, WM_LBUTTONDOWN , 0, 0 );
SendMessage( кнопка.Handle, WM_LBUTTONUP , 0, 0 );
работает даже при onActivate %)

> Vov © (28.02.02 18:32)

Круто. Но вот простые три слова - Application.MainForm.Close полностью заменяют всю эту громадину. Вместе с никому не нужной лишней кнопкой. Или уж тогда так - Кнопка.Click.

Как закрыть главную форму? Найти похожие ветки