Странное закрытие

[joker]

Когда кликаю на кнопке закрыть второстепенного окна своей проги или жму ALT+F4, то, понятно дело, убивается только окно, а если в контекстном меню на панели задач на иконке окна нажать закрыть, то убивается все приложение. Отчего может такое происходить?

[Killer_djon]

Скорее всего при закрытии второстепенного окна, ссылаясь на handle окна его же и закрвает, а в панели задач при нажатии на закрыть он образно говоря выполняет application.terminate;
Поэтому объясни что именно ты хочешь получить в результате закрытия того и другово???

[joker]

получается, что при нажатии закрыть на панели задач главному окну приложения отправляется сообщение о закрытии, а не отдельно второстепенному окну, связано ли это с архитектурой VCL или система отправляет родителю окна сообщение о закрытии
конечно, в моем случае я могу избавится от этого, просто помимо проверки скрыто ли главное окно во время отправки сообщения о закрытии проверять еще и второстепенные формы, но хотелось бы узнать, отчего это вообще зависит
пожалуйста, код в студию

[B_N]

Сообщение от joker

пожалуйста, код в студию

Какой код!!??. При чём здесь VCL! Эксплорер отправляет главному окну (вполне естественно, что его не заботит количество дочерних окон в неизвестных ему приложениях) WM_SYSCOMMAND с параметром SC_MOUSEMENU и координатами своей кнопки. Всё! Вы чего сделать-то хотите?

[joker]

вот именно, это я и хотел узнать, теперь хотелось бы узнать разные способы, как с этим бороться

[JTG]

Убрать из меню пункт "Закрыть Alt+F4"

[joker]

TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
 If not Visible and (msg.WParam=SC_MOUSEMENU) then exit;
 inherited;
end;

ни фига не помогло, как сделать так, чтобы этот клик только закрывал вторичное окно ввода пароля?

[B_N]

Сообщение от joker

TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
 If not Visible and (msg.WParam=SC_MOUSEMENU) then exit;
 inherited;
end;

ни фига не помогло, как сделать так, чтобы этот клик только закрывал вторичное окно ввода пароля?

Вы малость поторопились.
Во-первых, wParam в WM_SYSCOMMAND надо маскировать с 0xFFF0 - младшие четыре бита Windows использует по своему усмотрению.
Во-вторых, Зачем Вам само меню-то? Нужно или WM_SYSCOMMAND:SC_CLOSE или проще WM_CLOSE для главного меню проверять. (Ещё не понял, при чём здесь Visible?)
В-третьих, я тоже поторопился, забыл уже, что эксплорер отправляет не WM_SYSCOMMAND, а 0x313, которое MS не документирует и берёт меню "живьём", но этот момент тоже можно перехватить через WM_INITMENU

[joker]

Сообщение от B_N

В-третьих, я тоже поторопился, забыл уже, что эксплорер отправляет не WM_SYSCOMMAND, а 0x313, которое MS не документирует и берёт меню "живьём", но этот момент тоже можно перехватить через WM_INITMENU

А про это поподробнее, я в предках формы нашел только обработчики WM_INITMENUPOPUP

поменял SC_MOUSEMENU на SC_CLOSE, но ни фига

TForm1.WMSYSCOMMAND(var Msg: TMessage);   
begin  
 If not Visible and (msg.WParam=SC_CLOSE) then exit;   
 inherited;   
end;

потом перепробовал все варианты микширования SC_CLOSE c $FFF0 и с
WParam, но ниче не вышло, покажите как конкретно от этого избавиться, иначе я просто не пойму

[B_N]

joker, я не знаю, что Вы делаете и от чего собираетесь избавиться. Что за окно Form1, при чем здесь visible и т.п. WM_SYSCOMMAND проверяется например так:

void CmenutestDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	switch(nID & 0xFFF0){	// (wParam and $FFF0)
		case SC_MOUSEMENU	: Beep(1000,40); break;
		case SC_CLOSE		: Beep(3000, 40); break;
		case SC_MAXIMIZE	: MessageBox(TEXT("SC_MAXIMIZE"), NULL, MB_OK | MB_ICONINFORMATION); break;
		case SC_MINIMIZE	: MessageBox(TEXT("SC_MINIMIZE"), NULL, MB_OK | MB_ICONINFORMATION); break;
		default				: CDialog :: OnSysCommand(nID, lParam);
	}
}

Только я не понимаю, зачем он Вам нужен. Проверяйте какое-то условие в OnCloseQuery главного окна и всё.