Минимизация модальных окон.

← →
Карелин Артем © (2004-01-12 12:54) [0]

Как при минимизации модальных окон сворачивать не сами окна, а приложение?

← →
Sandman25 © (2004-01-12 12:55) [1]

Наследуйте все модальные окна от нового класса с обработчкиом:

procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

if Message.CmdType = SC_MINIMIZE then
Application.Minimize
else
inherited;

← →
Карелин Артем © (2004-01-13 16:08) [2]

Не-а. Программа остается на экране.

← →
alex_*** © (2004-01-13 16:19) [3]

ShowWindow(Application.Handle,sw_hide);

← →
Sandman25 © (2004-01-13 16:37) [4]

[2] Карелин Артем © (13.01.04 16:08)

У меня работает. D6.
Покажите, что пишете.

← →
Dred2k © (2004-01-13 16:37) [5]

> alex_*** © (13.01.04 16:19) [3]

Так ты ее с таскбара уберешь.
Вариант > Sandman25 © (12.01.04 12:55) [1] вполне рабочий.

procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND; ................. begin if Message.CmdType = SC_MINIMIZE then begin Application.OnActivate:=nil; ShowWindow(Application.Handle,SW_SHOWMINNOACTIVE); Application.OnActivate:=MainData.AppActivate; end else inherited; end; ................. procedure TMainData.AppActivate(Sender: TObject); begin ShowWindow(Application.Handle,SW_SHOWDEFAULT); Screen.ActiveForm.SetFocus; end;
Application.Minimize на модальных окнах как-то не хочет работать.

Где ты видел чтобы в продуктах Borland,Adobe,Abby,Microsoft Модальные окна минимизировались, да еще вместе с главной формой.

Минимизация модальных окон. Найти похожие ветки