Сворачивает все приложение при сворачивании неглавного окна

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Vemer

WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Сворачивает все приложение при сворачивании неглавного окна.

Обработчик сообщении. При попытке свернуть окно — сворачивает все приложение.

Предназначен для неглавных немодальных окон.

Зависимости: Как у стандартной формы…

Автор: Vemer, Vemer@mail.ru, Петрозаводск

Copyright: создано на основе примеров на www.delphimaster.ru

Дата: 17 марта 2004 г.

***************************************************** }

// Пишем в Private формы(неглавной);

procedure WMSysCommand(var message: TWMSysCommand); message WM_SysCommand;

// Пишем в тексте программы:

procedure TF_Shop.WMSysCommand(var message: TWMSysCommand);

begin

if message.CmdType = SC_MINIMIZE then

Application.Minimize

else

inherited;

end;

{/codecitation}

Добавить комментарий