закрытие всех форм проложения [D6, Win2k]
malakai © (2002-08-09 18:28:00)
Привет,
у меня есть ЕХЕ окуда открываются много форм которые
находится в ДЛЛ-ках. В процесе работы с одной любой из форм
возникат необходимость закрыть все окна приложения кроме
главного(ЕХЕ). Я из этой формы посылаю собщение в главное окное:
try
...
except
PostMessage(FMainHandle, WM_CONNECTION_LOST, 0, 0);
end;
в главное окно есть такой код:
...
procedure OnConnectionLost(var Msg: TMessage); message
WM_CONNECTION_LOST;
...
function EnumThreadWndProc(Hwnd: THandle; LPARAM: Longint):
Boolean; stdcall;
begin
if Hwnd <> frmMain.Handle then
if Hwnd <> Application.Handle then
SendMessage(Hwnd, WM_CLOSE, 0, 0);
//SendMessage(Hwnd, WM_SYSCOMMAND, SC_CLOSE, 0);
Result := True;
end;
procedure TfrmMain.OnConnectionLost(var Msg: TMessage);
begin
EnumThreadWindows(GetCurrentThreadId, @EnumThreadWndProc, 0);
SetDisconnectState();
MessageDlg("Connection lost.", mtInformation, [mbOK], 0);
end;
проблема в том что иногда после срабатывния этого кода
закрывается приложение без каких нибудь ероров.
Я могу это решить это посыля не WM_CLOSE а мое собщение и
написать в каждом окне обработчик в каждом нужном окне, но
хочетьтся знать почему крашится в этом случе приложение, ведь на
WM_CLOSE окна должны срабатывать нормально?
спасибо заранее.
malakai (2002-08-11 18:47:00) [1]
аууу, народ отзовитесь кто нибудь !
Наверх 
ЧАТ |
Орешник |
|
