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

Minimize приложения   Найти похожие ветки 

← →
IceT   (2004-10-18 12:27) [0]

Как можно нажав на кнопку минимизации модального окна, минимизировать все приложение. Попробовл сделать следуещее
В форме добавил
protected
 procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;

...

begin
 inherited;
 if (Message.wParam = SC_MINIMIZE) then Application.Minimize;
end;

Не прокатывает. Где ошибка?

---

← →
TUser ©   (2004-10-18 12:41) [1]

Модальное окно берет на себя обработку всех сообщений посылаемых приложению - на то оно и модальное. Т.е. как бы ты ни пытался, но сообщение о том, что надо минимизироваться не дойдет до главной формы.

---

← →
Jay   (2004-10-18 12:47) [2]

Попробуй Unit1.WindowState := wsMinimize;
где Unit1 главная форма

---

← →
TUser ©   (2004-10-18 12:49) [3]

Все равно не покатит - сообщение не дойдет до MainForm

---

← →
Jay   (2004-10-18 12:54) [4]

Нормально сворачивает, только модальное окно остается, его нужно отдельно сворачивать

---

← →
IceT   (2004-10-18 13:15) [5]

Некрасиво как-то сворачивается...

---

← →
Shuma ©   (2004-10-19 12:59) [6]

Такая констукция у меня работала.
Описание метода в разделе private формы.
procedure SysCommand(var Message: TMessage); message WM_SysCommand;

....

procedure TForm1.SysCommand(var Message: TMessage);
begin
  if (Message.wParam = SC_MINIMIZE) then Application.Minimize
else
  inherited;
end;

---

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

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



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