Как сворачивать все приложение при сворачивании неглавного окна? |
Previous Top Next |
Code: |
procedure WMActivateApp(var Msg: TWMActivateApp); message WM_ACTIVATEAPP; procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
{©Drkb v.3(2007): www.drkb.ru}
... 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
©Drkb::00412
Взято с Vingrad.ru http://forum.vingrad.ru