Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как сворачивать все приложение при сворачивании не главного окна?

Delphi , Программа и Интерфейс , Приложение своё

Как сворачивать все приложение при сворачивании не главного окна?

Code:

   procedure WMActivateApp(var Msg: TWMActivateApp); message WM_ACTIVATEAPP;
   procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
 
...
procedure Form2.WMActivateApp(var Msg: TWMActivateApp);
begin
if IsIconic(Application.Handle) then begin
   ShowWindow(Application.Handle, SW_RESTORE);
   SetActiveWindow(Handle);
end;
inherited;
end;
 
procedure Form2.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_Minimize) then
   ShowWindow(Application.Handle, SW_MINIMIZE)
else
   inherited;
end;

 

Теперь при сворачивании формы сворачивается все приложение.

Автор Alex

Взято с Vingrad.ru http://forum.vingrad.ru

Статья Как сворачивать все приложение при сворачивании не главного окна? раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Приложение своё ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 09:19:24/0.032741069793701/0