Минимизация формы

← →
REA (2002-10-08 13:49) [0]

Есть главная форма, поверх нее еще одна предпочтительно модальная (в которой пользовать проводит достаточно много времени). Задача: иметь возможность минимизировать обе формы при попытке минимизации второй или спрятать за Desktop (как Win(флаг)+D). Можно наверно переделать интерфейс, но лень. После минимизации при нажатии на таск баре или AltTab и т.п. все должно восстанавливаться.

← →
Ученик (2002-10-08 14:07) [1]

{ Delphi 7 }

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

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.WMSysCommand(var Message : TWMSysCommand);
begin
if (Message.CmdType and $FFF0) = SC_MINIMIZE then begin
Application.Minimize;
Message.Result := 0
end else
inherited
end;

← →
REA (2002-10-08 14:10) [2]

А сам то попробовал? Я вроде такие трюки тоже хотел делать, но почему-то не получилось. То не минимизируется, то не восстанавливается.

← →
Ученик (2002-10-08 14:14) [3]

В Windows 95 работает

← →
REA (2002-10-08 14:24) [4]

И то верно - работает. Спасибо!

← →
REA (2002-10-08 14:26) [5]

Все здорово, но в минимизированном состоянии по Alt-Tab не переключается.

← →
Ученик (2002-10-08 14:31) [6]

....
EnableWindow(Application.Handle, True);
Application.Minimize;
....

← →
REA (2002-10-08 14:35) [7]

Спасибо, работает. А до того Application не Enabled что ли?
Побочных эффектов не будет?

← →
Ученик (2002-10-08 14:40) [8]

Для работы формы в модальном режиме все остальные окна приложения запрещаются, насчет побочных эффектов не знаю.

← →
REA (2002-10-08 14:57) [9]

Это я в курсе. Но раз оно разрешится, значит будет наверно сообщения ловить. Ну да ладно, думаю что не страшно. Спасибо еще раз.

Минимизация формы Найти похожие ветки