Скачать: CL | DM;

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

← →
СержК   (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, и на другие события). Может я что-то не то делаю?
Подскажите.

---

← →
REA ©   (2004-03-09 11:57) [6]

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;

---

← →
fatal ©   (2004-03-09 12:07) [7]

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

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

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

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

---

← →
fatal ©   (2004-03-09 12:08) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c