Сворачивает все приложение при сворачивании неглавного окна
Falk0ner, вс, 06/07/2008 - 15:34.
Сворачивает все приложение при сворачивании неглавного окна
{ **** UBPFD *********** by kladovka.net.ru ****
>> .
Обработчик сообщении. При попытке свернуть окно - сворачивает все приложение. Предназначен для неглавных немодальных окон.
Зависимости: Как у стандартной формы...
Автор: Vemer, <a href="mailto:Vemer@mail.ru">Vemer@mail.ru</a>, Петрозаводск
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;
>> .
Обработчик сообщении. При попытке свернуть окно - сворачивает все приложение. Предназначен для неглавных немодальных окон.
Зависимости: Как у стандартной формы...
Автор: Vemer, <a href="mailto:Vemer@mail.ru">Vemer@mail.ru</a>, Петрозаводск
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;
Отправить комментарий