Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перехват сообщения [D5, Win95/98, Win2k, WinXP]

Super-Mario © (2002-08-09 10:54:00)
Подскажите кто знает, какое сообщение посылает Win, при нажатии кнопки "Свернуть все окна" на панели инструментов? Думал что WM_SIZE..., но оказалось не так.

Super-Mario (2002-08-09 15:43:00) [1]
> Ученик
Спасибо!

Ученик (2002-08-09 15:23:00) [2]
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;

FormStyle-bsDialog и загрузить иконку для формы

Super-Mario (2002-08-09 15:06:00) [3]
>Ученик
Спасибо большое. А можно по другому - чтобы кнопка на панели внизу оставалась?

Ученик (2002-08-09 14:44:00) [4]
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE)
end;
FormStyle - bsSizeToolWin

Super-Mario (2002-08-09 14:19:00) [5]
>watcher
WM_SYSCOMMAND отлично работает из формы, но на "Свернуть все окна" - МОЛЧИТ!

А если не чего не посылает, то как можно запретить свертывание, по нажатию этой кнопки???

Ученик (2002-08-09 14:15:00) [6]
>watcher
Только Explorer этого не делает :)

watcher (2002-08-09 14:11:00) [7]
WM_SYSCOMMAND
wparam = SC_MINIMIZE (or SC_ICON)

минимизирует окно. Правда broadcast ему делать не стоит...

Ученик (2002-08-09 13:51:00) [8]
Вроде он ничего не рассылает, а делает что-то типа
SetWindowPos(Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

Super-Mario (2002-08-09 12:21:00) [9]
Такого сообщения вообще нет??? (по крайней мере отсутствует описание в MSDN)

MAYOR (2002-08-09 12:01:00) [10]
нет посмотри помойму WM_MINIMIZE

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »