Как свернуть все окна программы

← →
СержК (2004-03-04 14:56) [0]

Уважаемые мастера, подскажите как сделать так, чтобы при нажатии на BorderIcons: biMinimize - в модальной форме сворачивались все формы программы?

← →
Романов Р.В. © (2004-03-04 14:59) [1]

Application.Minimize

← →
СержК (2004-03-04 16:04) [2]

А на какое событие это нужно вставить?

← →
TUser © (2004-03-04 16:20) [3]

Если надо отследить минимизацию одного к-нибудь окна - то в Form.OnCanResize. Или ваще заменить кнопку на свою, используя компонент TJvCaptionButton.

← →
СержК (2004-03-04 16:31) [4]

Но мне кажется Form.OnCanResize не совсем удобно. Программа будет сворачиваться при любом изменении размера - пользователь будет пугаться.

← →
СержК (2004-03-09 11:49) [5]

Уважаемые мастера, ничего не получается Application.Minimize не срабатывает (ставил и на OnCanResize, и на другие события). Может я что-то не то делаю?
Подскажите.

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

Procedure TMyForm.WMSysCommand(var Message: TWMSysCommand);
Begin
if (Message.CmdType and $FFF0) = SC_MINIMIZE then
begin
EnableWindow(Application.Handle, True);
Application.Minimize;
Message.Result := 0;
end else inherited;
End;

Если я правильно понял ты пытаешься обработать щелчек при нажатии на BorderIcons;

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

procedure TMainFrm.WMSysCommand;
begin
if Msg.CmdType = SC_MINIMIZE then MainFrm.Hide <- //Твои действия
else inherited;
end;

Можешь вставиь код сворачивающий все остальные окна.

Пока копировал с исходника уже продублировали ... ;)

Как свернуть все окна программы Найти похожие ветки